USER INSTRUCTIONS 


AMSTRAD CPC6128 


Integrated Computer/Disc System 


A Logical Progression 


AMSTRAD’s hugely successful CPC464 and CPC664 systems have provided a sound 
basis for further development, and now we proudly present the CPC6128. 

In keeping with our policy of compatibility, the CPC6128 will operate with software 
from both the CPC664 and CPC464 systems - but additionally provides a further 64K 
bytes of RAM for use with CP/M and other user applications. 


CP/M Plus 


CP/M Plus (also known as CP/M 3.1) provides very easy access to the library of CP/M 
80 software. The 61K TPA means that any CP/M 80 program will find room to run, 
and provide ample space for data. CP/M Plus is compatible with CP/M 2.2, although 
we have provided both versions to ensure that applications developed using firmware 
features in the AMSTRAD CP/M 2.2 systems will operate without modification. 


CP/M Plus includes many enhancements that improve the performance of the 
system, and most existing CP/M 2.2 software can take advantage of these facilities 
without conflict. The CP/M Plus system incorporates a specific terminal emulation 
feature whereby software that is configured to use screen handling characteristics 
similar to VT52 and Zenith Z19/Z29 terminals can be installed without further 
customisation. 


GSX 


The Graphics Extension System supplied with this version of CP/M Plus enables 
applications programs to address printers/plotters and the screen using standard 
instructions that extend the concept of CP/M program portability beyond the text 
screen, Software that takes advantage of GSX will be able to be interfaced with a 
number of graphics devices to provide hard copy of graphs, diagrams etc. 


Dr. LOGO 


Digital Research’s LOGO continues to make inroads into computer education - and 
the increased memory of the 6128 has permitted extensions to the Dr. LOGO first 
used under CP/M 2.2. Programs will of course be upwards compatible from 
AMSTRAD CP/M 2.2. 


Introduction CPC 6128 


Disc 


“The CPC664 set the standard for the future with its built in disc system, and the 
CPC6128 continues to bring low cost disc computing to increasingly demanding and 
exacting users who want personal computer performance at a home computer price. 
The discs from all AMSTRAD systems are interchangeable, although programs that 
take advantage of the advanced features of CP/M Plus and GSX will obviously not 
work on models without these facilities. 


Finally, the CPC6128 is supported by one of the largest consumer electronics 
organisations in the country, and the AMSTRAD computer users’ club with its 
authoritative monthly magazine is already firmly established as the leading source 
of news and information. 


Software 


The CPC6128 runs ай CPC664 and CPC464/DDI1 disc software, and virtually all 
CPC464 cassette software (with a cassette unit connected to the CPC6128 of course), 
giving the owner an instant and enviable choice of software from AMSOFT's 
extensive range, as well as the products of many independent vendors. 


AMSOFT 


Adivision of 


AMSTRAD 


CONSUMER ELECTRONICS PLC. 
© Copyright 1985 AMSOFT, AMSTRAD Consumer Electronics ple. 


Neither the whole nor any part of the information contained herein, nor the product described in this manual, may 
be adapted or reproduced in any material form except with the prior written approval of AMSTRAD Consumer 
Electronics ple. (AMSTRAD) 

‘The product described in this manual, and products for use with it are subject to continuous development and 
improvement. All information of a technical nature and particulars of the product and its use (including the 
information and particulars in this manual) are given by AMSTRAD іп good faith. However, it is acknowledged 
that there may be errors or omissions in this manual. A list of details of any amendments or revisions to this 
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that all users take care to submit their reply paid user registration and guarantee cards. 


You are also advised to complete and send off your Digital Research User registration card. 
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AMSOFT welcome comments and suggestions relating to the product or to this 
manual. 


All correspondence should be addressed to: 


AMSOFT 
Brentwood House, 
169 Kings Road, 
Brentwood, 
Essex CM14 4EF 


All maintenance and service on the product must be carried out by AMSOFT 
authorised dealers. Neither AMSOFT nor AMSTRAD can accept any liability 
whatsoever for any loss or damage caused by service or maintenance by unauthorised 
personnel. This guide is intended only to assist the reader in the use ofthe product, 
and therefore AMSOFT and AMSTRAD shall not be liable for any loss or damage 
whatsoever arising from the use of any information or particulars in, or any error or 
omission in, this guide or any incorrect use ofthe product. 


and DR Graph are trademarks of Digital Research Inc. 
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You must read this.... 


Installation Notes 


1, 


a 


Always connect the Mains Lead to a 3-pin plug following the instructions 
contained in part 1 of the Foundation course. 


Never attempt to connect the system to any Mains Supply other than 
220-240V ~ 50Hz. 


There are no user serviceable parts inside the system. Do not attempt to gain 
access into the equipment. Refer all servicing to qualified service personnel. 


To avoid eye-strain, the monitor should be placed as far away as possible from 
the keyboard and operated in an adequately lit room. The monitor 
BRIGHTNESS control should be kept to as low a setting as possible. 


‘The computer should be placed centrally in front of the monitor, but as far away 
from the screen as possible. For maximum data reliability, the disc drive section 
of the computer should NOT be placed directly in front of the monitor, but to the 
right of it. Do not place the computer close to any source of electrical 
interference. 

Always keep disc drives and discs away from magnetic fields. 


If you are operating a 2-drive system, keep the interconnecting ribbon cable to 
the 2nd drive, away from Mains Leads. 


Do not block or cover any ventilation holes. 


Do not use or store the equipment in excessively hot, cold, damp, or dusty areas. 


Operation Notes 


(Don’t worry if you are a little baffled by the technical jargon in this section; the 
importance of these warnings will become clearer as you work through this manual.) 


1. 


Never switch the system on or off with a disc in the drive. Doing so will corrupt 
your disc, losing valuable programs or data. 
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2. Always make back-up (duplicate) copies of discs which contain valuable 
programs. It is especially important to make back-up copies of the master CP/M 
system discs provided with the 6128. Should you otherwise accidentally lose or 
corrupt your discs, replacing them could prove expensive. 


3. Маке sure that you do not accidentally overwrite your master CP/M system 
discs, by ensuring that the Write Protect holes on the discs are always open. 


4. Ifyou are operating a 2-drive system, i.e. if you have purchased an additional 
AMSTRAD FD1, always switch on the 2nd disc drive before switching on the 
computer. 

Never touch the floppy disc surface itself, inside its protective casing. 

Do not eject a disc while it is being read from or written to. 


Always remember that formatting a disc will erase any previous contents. 


өл өс 


The internal disc interface occupies a small portion of the memory that іп some 
cases, was used by commercial writers of cassette based software for the 
AMSTRAD model CPC464. These cassettes will not operate properly with the 
6128 + Cassette unit. If you have any queries regarding cassette based software 
compatibility, contact AMSOFT on Brentwood (0277) 230222. Note however, 
that most major AMSOFT software titles are available on disc for the 6128. 


9. Тһе licence agreement for your CP/M system discs, (which are electronically 
serial-number encoded) permit their use on a single computer system only. In 
particular this means that you are prohibited from giving any other person a 
disc with YOUR serial-numbered copy of CP/M on it. Carefully read the End 
User Program Licence Agreement (Appendix 1), towards the end of this 
manual. 
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Foundation Course 


Part 1: Setting Up.... 


The СРС6128 can be set up with either: 


1. The AMSTRAD GT65 Green Tube Monitor 

2, The AMSTRAD CTM644 Colour Monitor 

3. The AMSTRAD MP2 Modulator/Power Supply and a domestic (UHF) colour 
TV receiver. 


Fitting a Mains Plug 


The CPC6128 operates from a 220-240Volt~ 50Hz Mains supply. Fit a proper Mains 
Plug to the Mains Lead of either the GT65, CTM644, or MP2. If a 13 Amp (BS1363) 
Plug is used, a 5 Amp Fuse must be fitted. The 13 Amp Fuse supplied in a new plug 
must NOT be used. If any other type of Plug is used, a 5 Amp Fuse must be fitted 
either in the Plug or Adaptor or at the Distribution Board. 


Important 
Тһе wires in the Mains Lead are coloured in accordance with the following code: 


Blue :Neutral 
Brown :Live 


As the colours of the wires in the Mains Lead of this apparatus may not correspond 
with the coloured markings identifying the terminals in your plug, proceed as 
follows: 


The wire which is coloured BLUE must be connected to the terminal which is marked 
with the letter ‘N’ or coloured Black. 


The wire which is coloured BROWN must be connected to the terminal which is 
marked with the letter ‘L’ or coloured Red. 


Disconnect the Mains Plug from the Supply Socket when not in use. 


Do not attempt to remove any screws, nor open the casing of the computer, monitor, or 
Modulator/Power supply unit. Always obey the warning on the rating label which is 
located underneath the case of the CPC6128 and MP2, and on the rear cabinet of the 
GT65 and CTM644: 


WARNING - LIVE PARTS INSIDE. DO NOT REMOVE ANY SCREWS, 
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Connecting the computer to a monitor 


(If you are using the CPC6128 with the MP2 Modulator/Power supply, skip to the 
next section.) 


1. МаКевиге that the monitor is not plugged into the Mains supply socket. 


2. Connect the lead from the front of the monitor, which is fitted with the larger 
(6-pin DIN) plug, into the rear socket of the computer marked MONITOR. 


8. Connect the lead from the front of the monitor, which is fitted with the smaller 
(5V DC) plug, into the rear socket on the computer marked 5V DC. 


4. Connect the lead from the back of the computer, which is fitted with a small 
(12V DC) plug, into the socket at the front of the monitor. 


FRONT OF MONITOR 
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Connecting the computer to an MP2 
Modulator/Power supply unit 

The MP2 is an additional item that you may wish to purchase if you are currently 
using your CPC6128 computer with the GT65 green tube monitor. The MP2 enables 


you to to use the computer with your domestic colour TV and thereby enjoy the full 
colour facilities of your CPC6128 computer. 


The MP2 should be positioned next to the right hand end of the CPC6128. 


1. Makesure that the MP2 is not plugged into the Mains supply socket. 


2. Connect the lead from the MP2 which is fitted with the larger (6-pin DIN) plug, 
into the rear socket of the computer marked MONITOR. 


3. Connect the lead from the MP2 which is fitted with the smaller (5V DC) plug, 
into the rear socket on the computer marked 5V DC. 


4. Connect the lead from the MP2 which is fitted with an aerial plug, into the 
AERIALor ANTENNA socket of your TV set. 


5. Connect the lead from the back of the computer, which is fitted with a small 
(12V DO) plug, into the socket at the rear ofthe MP2. 
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Switching on - CPC6128 and GT65/CTM644 


system 
(If you are using the CPC6128 with the MP2 Modulator/Power supply, skip to the 
next section.) 


Having connected up the system as shown previously, insert the Mains Plug into the 
Supply socket and switch on. Press the POWER button at the bottom right hand 
corner of the monitor so that it is set to the IN position. When the button is set to the 
OUT position, the Mains supply to the system is OFF. 


Switch on the computer using the POWER switch on the back panel. 


The red ON lamp at the top right of the keyboard should be illuminated, and the 
monitor will display the following picture: 


Amstrad 128K Microcomputer ¢v3> 
91985 Anstrad бервивет, 156 (88:85:43 
BASIC 1.1 

gente 


To avoid unnecessary eye-strain, adjust the control marked BRIGHTNESS until the 
display is adequately bright for comfortable viewing, without glare or blurring of the 
characters on the screen. 


The BRIGHTNESS control will be found on the lower front panel of the GT65, or at the 
right hand side of the CTM644. 


Ifyou are using the GT65 green monitor, you may need to adjust the CONTRAST and 
Vertical HOLD controls on the lower front panel. 

The CONTRAST should be adjusted to the minimum setting consistent with 
comfortable viewing. 

The Vertical HOLD control on the GT65 is marked V-HOLD, and should be adjusted so 
that the display is correctly positioned in the middle of the screen, without jitter’ or 
‘roll’. 
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Switching on - CPC6128 and MP2 
Modulator/Power supply system 


Having connected up the system as shown previously, insert the Mains Plug intothe 
Supply socket. 


Switch on the computer using the POWER switch on the back panel. 


Тһе red ON lamp at the top right of the keyboard should be illuminated, and you must 
now tune in your TV set to receive the signal from the computer. 


Ifyou have a TV with push-button channel selection, press a channel button to select 
a spare or unused channel. Adjust the corresponding tuning control in accordance 
with the TV set manufacturer’s instructions (the signal will be approximately at 
channel 36 if your TV has a marked tuning scale), until you receive a picture that 
looks like: 


Amstrad 128K Microcomputer (v3) 
®1985 Amstrad i 
stead Бозо ve Sof tonio Leas 
BASIC 1.1 
get” 


Tune in the TV set accurately until the clearest picture is seen. The writing will be 
gold/yellow on a deep blue background. 


If your TV has a rotary programme selector knob, turn the tuning knob until the 
above picture appears and remains perfectly steady. (Again, at approximately 
channel 36). 
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Other Connections.... 


Ifyou wish to connect any other peripherals to the standard system, namely: 


Joystick(s) 

Cassette unit 

Printer 

2nd disc drive 

External amplifier/speakers 
Expansion device(s) 


letails will be found in part 2 of this Foundation course. 
Finally, check that you have observed the following warnings given at the beginning 
of this manual, in the section entitled IMPORTANT’: 


INSTALLATION NOTES 1,2,4,5,6,7,8 
OPERATION NOTE 1 
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Part 2: Connecting your 
peripherals.... 


This section explains how the various peripherals, or add-ons, are connected to the 
CPC6128 system. Details concerning the use of these devices will be found in the 
appropriate sections of this manual. 


Joystick 


The AMSOFT joystick model JY2 is an additional item that you may wish to 
purchase if you are using the 6128 computer with games software which incorporates 
the facility for joystick control and ‘firing’. 


Connect the plug fitted to the JY2 lead into the socket marked JOYSTICK on the 
computer. The 6128 can be used with two joysticks; the second joystick should be 
plugged into the socket on the first joystick. 


The AMSOFT joystick model JY 1 is also suitable for use with this computer. 
Further information on joysticks will be found later in this manual. 
The AMSTRAD Light pen model LP-1 may be connected to this socket. 


Cassette unit 


Programs may be loaded from, or saved to tape instead of disc. The commands which 
instruct the computer to direct data to and from disc or tape are explained later in this 
manual, 


To connect your cassette unit to the 6128, you will require the AMSOFT CL1 lead, or 
any other equivalent standard cassette-interconnecting lead. 

Insert the end of the lead with the larger (5-pin DIN) plug, into the socket marked 
TAPE on the computer. 

Insert the plug at the end of the Blue cable into the socket on your cassette unit 
marked REMOTE or REM. 

Insert the plug at the end of the Red cable into the socket on your cassette unit 
marked MIC, COMPUTERIN, or INPUT. 


Insert the plug at the end of the White cable into the socket on your cassette unit 
marked EAR, COMPUTER OUT, or OUTPUT. 
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It is important to remember that the successful transfer of data between the 6128 and 
cassette is largely dependent upon the correct setting of the LEVEL or VOLUME 
control on your cassette unit. If you cannot seem to load or save programs properly, 
experiment with different LEVEL control positions until the optimum setting is 
found. 


Printer 


The 6128 may be used with any Centronics compatible parallel printer. If you intend 
to connect an AMSTRAD printer to the 6128, simply use the interconnecting lead 
provided with the printer. 


If you wish to use any other Centronics compatible printer, you will require the 
AMSOFT PLI printer interconnecting lead. 


Connect the end of the lead which is fitted with the flat edge-connector plug, into the 
socket marked PRINTER at the rear ofthe computer. 


Connect the other end of the lead which is fitted with a Centronics style plug, into the 
socket at the rear of the printer. If the printer is equipped with security clips at each 
side of the socket, these may be clipped into the cut-outs at the side ofthe printer plug. 


Details of printer operation will be found later in this manual. 


A 2nd disc drive (AMSTRAD FD1) 


The AMSTRAD FD1 may be added to the system as a 2nd disc drive. The advantages 
of a 2-drive system will be particularly apparent to the regular CP/M user, since 
many programs are configured to run with the library program disc inserted in one 
drive, and the working data files stored on a disc in the second drive. 


Operation under CP/M always requires that a program be loaded from disc (there is 
no access to the ROM BASIC). Since CP/M allows the use of multiple files by an 
overlay technique that permits programs that are larger than the RAM memory, the 
actual library disc may contain so many program files that there is little workspace 
left for the data. 


Thanks to the versatility of the utilities provided with your 6128 system disc, you can 
do all necessary file maintenance; copying, erasing etc, on a single disc drive. 
However a second drive will certainly speed up these processes and reduce the scope 
for accidents. 


To connect the FD1 to the 6128, you will require the AMSOFT DI2 disc inter- 
connecting lead. 
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Connect the end of the lead which is fitted with the larger edge-connector plug, into 
the socket marked DISC DRIVE 2 at the rear of the computer. 


Connect the other end of the lead which is fitted with a smaller plug, into the socket at 
the rear of the FD1 disc drive. 


DON’T FORGET - Before connecting or disconnecting the 2nd disc drive, make sure 
that any discs are removed from both drives, and that the system is switched off. If 
connections are altered while the system is on, it is likely that the program in the 
computer’s memory will be corrupted. Always save any valuable programs before 
meddling with connections! 


When the FD1 is connected to the 6128, FIRST switch on the FD1 using the slide 
switch on the rear panel of the disc drive, THEN switch on the 6128 using the slide 
switch on the rear panel of the computer. Both the green and red indicators on the 
front panel of the FD1 should be illuminated. The 2-drive system will then be ready to 
operate. 


Details of 2-drive operation will be found later in this manual. 


External amplifier/speakers 


The 6128 may be connected to a stereo amplifier and speakers to enjoy the full 
3-channel capabilities of the computer. 


The input lead to your stereo amplifier should be terminated with a 3.5mm stereo 
jack plug, which should be inserted into the socket marked STEREO on the computer. 


The connections to the jack plug are: 


Plug tip - Left channel 
Plug inner ring - Right channel 
Plug rear shaft - Ground (Common) 


The 6128 will provide a fixed voltage signal out of the STEREO socket, and you should 
therefore use the controls on the amplifier itself to regulate volume, balance and 
tone. 


High impedance headphones will also operate with the 6128, however the volume 
will not be adjustable by the VOLUME control on the computer. Low impedance 
headphones, such as those usually used with stereo systems, will not operate directly 
plugged into the computer. 


Details concerning the directing of sound to the required output channel will be found 
later in this manual. 
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Expansion devices 


Expansion devices such as serial interfaces, modems, light pens, ROMs etc may be 
connected to the 6128, using the socket marked EXPANSION at the rear of the 
computer. 


The AMSTRAD RS232C Serial Interface may be connected to this socket. 


The AMSOFT speech synthesiser/amplifier model SSA2 may also be connected to 
this socket. 

Details of connections to the EXPANSION socket will be found in the chapter entitled 
‘For your reference....’. 

Finally, check that you have observed the following warnings given at the beginning 
of this manual, in the section entitled IMPORTANT’: 


INSTALLATION NOTES 6,7 
OPERATION NOTES 4,8 
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Part 3: About Discs 


The AMSTRAD CPC6128 uses 3 inch compact floppy discs. We strongly recommend 
that for reliable data-to-disc transfer, you use only AMSOFT CF2 compact floppy 
discs. Discs made by leading manufacturers however, may also be used. 


Insertion 


Each side of a disc may be used separately. A disc should be inserted with its label 
facing outward from the drive, and with the side that you wish to use face up: 
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Write Protection 


In the left hand corner of each side of a blank disc, you will see an arrow pointing to a 
small shuttered hole. This is called the Write Protect hole, and facilitates protection 
against erasure or ‘overwriting’: 


Write Protect hole 


When the hole is closed, data can be ‘written’ onto the disc by the computer. When the 
hole is open however, the disc will not allow data to be written onto it, thus enabling 
you to avoid accidental erasure of valuable programs. 


Various compact floppy disc manufacturers employ different mechanisms for 
opening and closing the Write Protect hole. The operation may be carried out on the 
AMSOFT CF2 compact floppy disc as follows: 


To open the Write Protect hole, slide the small shutter located at the left hand corner 
of the disc, and the hole will be opened: 


4 
Write Protecthole (ОРЕМ) ! 
! 
Shutter Shutter 
OPEN CLOSED’ 


Write Protection ON Write Protection OFF 
u 


To close the Write protect hole, simply slide the shutter to its closed position. 
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Some other compact floppy discs employ a small plastic lever located in a slot at the 
left hand corner: 


Lever 
11 === 
а 
Write Protect 
hole 
(CLOSED) 


To open the Write Protect hole on this type of disc, slide the lever towards the middle 
ofthe disc, using the tip of a ball-point pen or similar object: 


Slide Lever 
towards middie > 
of disc 


Write Protect 
hole 
(OPEN) 


Note that regardless of the method employed to open and close the Write Protect hole, 
opening the hole in all cases facilitates protection against overwriting. 
IMPORTANT 


Always ensure that the Write Protect holes on your master CP/M system discs 
package are open. 
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When Your Disc isin 


At the front of the computer’s disc drive, you will see a red indicator lamp, and a push 
button for Eject: 


Indicator -— Eject 
Lamp Button 


Indicator Lamp 


This indicates that data is being read from, or written to the disc. 


If a 2nd disc drive is connected, the red indicator on the 2nd disc drive (Drive B) will 
illuminate constantly. It will extinguish when the main disc drive within the 
computer (Drive A) is reading or writing to disc. 


Eject Button 


Pressing in the Eject button allows you to remove your disc from the drive. 


Finally, check that you have observed the following warnings given at the beginning 
of this manual, in the section entitled IMPORTANT’: 


OPERATION NOTES 1, 3,4, 5,6 
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Part 4: Getting Started.... 


Before we start loading software and saving programs to disc, let’s get familiar with 
some of the keys on the computer. Those of you who are experienced in using 
computers may skip this section. 


With the computer switched on and the opening message on the screen, we're going to 
find out what the various keys do.... 


The cursor keys < © 4 0 (at the bottom right hand corner of the keyboard) move 
the position ofthe cursor (the small solid block) on the screen. 


Press each of the cursor keys in turn, and you will see the cursor move about the 
screen, 


The [RETURN] key enters the information that you have typed into the computer. 
After the [RETURN] key is pressed, a new line is started on the screen. Each 
instruction that you type into the computer should be followed by pressing the 
[RETURN] key. 


From now on, we will show [RETURN] as meaning press the [RETURN] key after each 
instruction or program line. 
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ENTER 


Under normal circumstances (by default), this key has the same effect as IRETURN] 
and can be used as such. However, like the function keys on the numeric keypad, the 
[ENTER] key may be re-defined for other uses. This will be explained later in the 
manual. 


This key is used to delete a character to the left of the cursor on the screen (for 
example a letter or a number) which is not required. 


Type in abcd and you will see that the letter d is positioned to the left of the cursor. If 
you decide that you do not want the letter d, press [DEL] once and you will see the d 
removed. If you press [DEL] and continue to hold it down, the letters ab c will also be 
removed. 


There are two [SHIFT] keys. If you press either of these and hold it down whilst typing 
acharacter, a capital letter or upper case symbol will appear on the screen. 


Type in the letter e then hold down the [SHIFT] key and type in the letter e again. On 
thescreen you will see: 


et 


Now type in a few spaces by holding down the space bar. Try the following using the 
number keys which are on the top line of the keyboard, above the letter keys. Type in 
the number 2, then hold down the [SHIFT] key and type in the number 2 again. On 
the screen you will see: 


2" 
You can now see what happens when the [SHIFT] key is held down whilst pressing a 


character key. Experiment by pressing any ofthe character keys, either on their own, 
ortogether with the [SHIFT] key. 
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This has a similar operation to [SHIFT] except that you only have to press it once. 
From then on each letter that you type in will be in capitals, although the number 
keys will not be shifted. 


Press [CAPS LOCK] once, then type in: 
abcdef123456 

On the screen you will see: 
ABCDEF123456 


You will notice that although all the letters are shifted to capitals, the numbers have 
not been shifted to symbols. If you wish to type in a shifted symbol while 
[CAPS LOCK] is in operation, simply hold down the [SHIFT] key before pressing a 
number key. Type in the following while holding down the [SHIFT] key: 


abcdef123456 
On the screen you will see: 
ABCEDF!"/SZ& 


If you wish to return to small (lower case) characters again, press the [CAPS LOCK] 
key once again. 


If you wish to type in capital letters and shifted upper case symbols without having to 
constantly hold down the [SHIFT] key, this can be carried out as follows: 


Holding down the [CONTROL] key, then press the [CAPS LOCK] key once. This 
performs the function ofa ‘SHIFT LOCK’. Now type in: 


abcdef123456 
On the screen you will see: 
ABCDEF!"/$Z& 


Note that it is still possible to type in numbers while [CONTROL] and [CAPS LOCK] 
are in operation, by using the number keys (fU to f9) at the right of the keyboard. 
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Holding down the [CONTROL] key and pressing [CAPS LOCK] once, will return you 
to the mode that you were previously in, (i.e. either lower case or capital letters-only). 
Ifyou have returned to the capital letters-only mode, simply press [CAPS LOCK] once 
again to return to the lower case mode. 


This key is used to clear a character within the cursor. 


Type in ABCDE FGH. The cursor will be positioned to the right of the last letter typed 
(H). Now press the cursor left key 0 four times. The cursor will have moved four 
places to the left, and will be superimposed over the top of the letter E. 


Notice how the letter E is still visible within the cursor. Press the [CLR] key once and 
you will see that the letter E has been cleared and the letters F GH have each moved 
one space to the left with the letter F now appearing within the cursor. Now press the 
[CLR] key again and hold it down. You will see how the letter F is cleared followed by 
the letters G and H. 


This key is used to [ESC]ape from a function that the computer is in the process of 
carrying out. Pressing the [ESC] key once will cause the computer to temporarily 
pause in its function, and will continue again if any other key is pressed. 


Pressing the [ESC] key twice will cause the computer to completely [ESC]ape from 
the function which it is carrying out. The computer is then ready for you to type in 
some more instructions. 


Important 


When you reach the right hand edge of the screen by entering 40 characters on a line, 
the next character will automatically appear on the following line at the left edge of 
the screen. This means that you should NOT press [RETURN] as those of you 
accustomed to typewriters might press a carriage return towards the right edge of a 
page. 

The computer does this automatically for you, and will react to an unwanted 
[RETURN] by printing an error message - usually a Syntax error, either there 
and then, or when the program is run. 
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Syntax Error 


Ifthe message: Syntax error appears on the screen, the computer is telling you 
that it does not understand an instruction that you have entered. 


For example type in: 
printt [RETURN] 

On the screen you will see the message: 
Syntax error 


The message appears because the computer has not understood the instruction: 
printt 


Ifyou type a mistake in the line ofa program, such as: 
10 printt "abc" [RETURN] 


The Syntax error message will not appear until the instruction is processed by 
thecomputer when the program is run. 


Typein: 
run [RETURN] 


(This command tells the computer to carry out the program that you have just typed 
intothe memory.) 


On the screen you will see: 


Syntax error in 10 
10 f]rintt "abc" 


This message tells you in which line the error has occurred, and displays the program 
line, together with the editing cursor so that you can correct the mistake. ` 


Press the cursor-right key 0 until the cursor is over the t in pr int t. Now press the 
[CLR] key to remove the unwanted t , then press the [RETURN] key to enter the 
corrected line into the computer. 


Now type in: 
run [RETURN] 

...and you will see that the computer has accepted the instruction, and has printed: 
abe 


Finally, check that you have observed the following warnings given at the beginning 
of this manual, in the section entitled IMPORTANT’: 


INSTALLATION NOTES 4,5 
OPERATION NOTE 1 
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Part 5: Loading Software and 
games.... 


Welcome to those of you who skipped here from the beginning of the previous section! 


As a quick demonstration of the speed of loading disc software, switch on the system, 
then insert Side 4 of your master CP/M discs package into the drive (i.e. the label ‘Side 
4’ should be uppermost). 


Type in: 
run "rointime.dem" [RETURN] 


After a few seconds the program will have loaded into the memory. Answer the 
question on the screen as to whether you are using a green monitor; (Type Y for Yes, 
or N for No), and you will then see a continuous demonstration of the game “Roland in 
Time'on the screen. It may even persuade you to go out and buy a copy ofthe game! 


When you have finished watching the demonstration, you may 'escape' from the 
program by simultaneously holding down the [CONTROL] and [SHIFT] keys then 
pressing the [ESC] key. This has the effect of completely resetting the computer, and 
may be used whenever you wish to start afresh. (You do not need to remove any disc 
from the drive when resetting the computer in this way). 


Ifthe program hasn't loaded, study any error message on the screen to see where you 
went wrong: 


Drive A: disc missing 
Retry, Ignore or Cancel? 


...means that you have either not inserted your disc correctly, or, if you have a 
2-drive system, that you have inserted it into Drive B. 


ROINTIME.DEM not found 


means that you have either inserted the wrong disc, (or the wrong side of the disc), 
or you have not carefully and precisely typed in the name, ROINT IME . DEM 


Bad command 


eans that you have probably mis-typed ROINTIME. DEM by introducing ап 
unwanted space or punctuation mark. 
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Type mismatch 

...means that you have omitted the quotation marks " 
Syntax error 

...means that you mistyped the word run 


Drive A: read fail 
Retry, Ignore or Cancel? 


...Ineans that the computer has failed to read data from your disc. Check that you 
have inserted the correct disc and press R to Retry. This message will appear if ever 
you corrupt your disc by switching the system on or off while the disc is in the drive. 


Once you have learned how to make back-up copies of discs, always do so for valuable 
programs, and especially for your master CP/M system discs package. 


Loading AMSOFT software and the WELCOME 
program 

Having hopefully whetted your appetite for the lighter side of computing, let's load a 
game... 

Insert your software disc in the drive, and type in: 


run "disc" [RETURN] 


After a few seconds, your game will be loaded and ready to play. 


Try typing in: run "disc" with Side 4 of your master CP/M system discs package 
inserted into the drive, and you will see and hear the CPC6128 continuous 'Welcome' 
demonstration. 


When you have finished watching ‘Welcome’, reset the computer using the 
[CONTROL] [SHIFT] and [ESC] keys. 


The above instruction (run "disc") will load most of the AMSOFT range of disc 
software, but you may come across the odd occasion where you have to type in 
something else. In all cases however, the loading instructions will be found on the 
labelofthe software disc, which should always be carefully followed. 


Finally, check that you have observed the following warnings given at the beginning 
of this manual, in the section entitled IMPORTANT’: 


INSTALLATION NOTE 6 
OPERATION NOTES 1,5,6 
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Part 6: Let's Compute. 


So far, we know what we must and mustn't do with the computer, and how to set it up 
and connect peripherals. We know what some of thé keys on the computer do, and how 
to load software. Now we'll look at some of the instructions that you can type in to 
make things happen.... 

Like you or I, the computer can only understand instructions in a language that it 
knows, and that language is called BASIC, (short for Beginners' All-purpose 
Symbolic Instruction Code). The words in BASIC's vocabulary are called ‘keywords’ 
and each of them tell the computer to perform a specific function. All languages must 
conform to the rules of grammar, and BASIC is no exception. Here, grammar is 
referred to as ‘Syntax’, and the computer will always be kind enough to tell you if 
you'vemadea Syntax error! 


An introduction to AMSTRAD BASIC keywords 


In the chapter entitled ‘Complete list of AMSTRAD CPC6128 BASIC keywords’, you 
will find a description of all the keywords found in AMSTRAD BASIC. We will 
introduce some ofthe more commonly used BASIC keywords in this section. 


CLS 
Toclearthe screen, type in: 


cls [RETURN] 


You will notice that the screen clears and the word Ready with the cursor Ш will 
appear at the top left of the screen. 


Note that you can use upper case (CAPITAL) or lower case (small) letters to enter any 
BASIC keyword into the computer. 


PRINT 


This is used whenever you want characters, words or figures in a program to be 
printed. Type in the following instruction line: 


print "hello" [RETURN] 
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Onthescreen you willsee: 
hello 


'The quotation marks are used to tell the computer what should be printed. 
he L Lo appeared on the screen as soon as the [RETURN] key was pressed. Type in: 


cls [RETURN] 


{о clear the screen. 


RUN 


The previous example showed a single instruction line. However, as soon as the 
[RETURN] key was pressed, the instruction was carried out then forgotten. It is 
possible to store a series of instructions in the computer to be carried out in a specified 
order. This is achieved by writing a ‘program’. The sort of BASIC instructions that 
you write in a program are the same as just shown, but in front of each instruction 
line, a line number is typed in. If there is more than one line in the program, these line 
numbers tell the computer the order in which to carry out or ‘run’ the program. When 
[RETURN] is pressed, the line is stored in the memory until the program is run. Now 
type in: 


10 print "hello" [RETURN] 


Notice that when [RETURN] was pressed, he L Lo was NOT printed on the screen, 
but instead was entered into the computer’s memory as a one-line program. To carry 
out that program, the word гип must be used. Type in: 


run [RETURN] 


You will поу вее hell Lo printed onthe screen: 
Note that instead of continually typing in: pr int, you can use the ? question-mark 
symbol, for example: 


10 ? "hello" [RETURN] 


LIST 


After a program has been stored in the memory, it is possible to check what has been 
typed in by ‘listing’ the program. Type in: 


List [RETURN] 
Onthe screen you will see: 
10 PRINT "hello" 
»... Which is the program stored in the memory. 
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Notice how the word PRINT is now in capitals. This means that the computer has 
accepted PRINT asa known BASIC keyword. 


Туре іп: с L s [RETURN] to clear the screen. Note that although the screen is cleared 
when you type іп: c ѕ [RETURN], your program is not erased from the computer's 
memory. 


GOTO 


The GOTO keyword tells the computer to go from one line to another in order to either 
miss out a number of lines or to form a loop. Type in: 


10 print "hello" [RETURN] 
20 goto 10 [RETURN] 


Now type: 
run[RETURN] 


....and you will see he L Lo printed continuously on the screen, one under another on 
the left side. The reason for this, is that line 20 ofthe program is telling the computer 
to go to line 10 and carry on processing the program from there. 


To pause the running of this program, press [ESC] once. To start it again, press any 
other key. To stop it running so that other instructions can be typed in, press [ESC] 
twice. 


Now typein: 
cts- [RETURN] 


...to clear the screen. 


To see the word he L Lo printed continuously on each line, one next to another filling 
the whole of the screen, type in the previous program but with a semi-colon ; after 
the quotation marks " 


Type in: 


10 print "hello"; [RETURN] 
20 goto 10 [RETURN] 
run [RETURN] 


Note that the semicolon ; tells the computer to print the next group of characters 
immediately following the previous one, (unless the next group of characters is too 
large to fit on the same line). 
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Escape from this program by pressing [ESC] twice. Now type in line 10 again, but 
this time, use a comma , instead ofa semicolon ; 


10 print "hello", [RETURN] 
run [RETURN] 


You will now see that the comma , has told the computer to print the next group of 
characters 13 columns away from the first group of characters. This feature is useful 
for displaying information in separate columns. Note however, that if the number of 
characters in a group exceeds 12, the next group of characters will be displaced 
forwards by another 13 columns, so as to always maintain a space between columns. 


This figure of 13 columns is adjustable by use of the ZONE command, described later 
inthis manual. 


Again, to escape from this program, press [ESC] twice. To clear the computer's 
memory completely, hold down the [CONTROL] [SHIFT] and [ESC] keys in that 
order, and the computer will reset. 


INPUT 


This command is used to let the computer know that it is expecting something to be 
typed in, for example, the answer to a question. 


Type the following: 
10 input "how old are you";age [RETURN] 
20 print "you look younger than";age; 


"years old." [RETURN] 
run [RETURN] 


Onthescreen you willsee: 

what is your age? 
‘Type in your age then [RETURN]. If your age was 18, the screen would then show: 

you look younger than 18 years old. 
This example shows the use of the input command and a number variable. The 
word age was put into the memory at the end of line 10 so that the computer would 
associate the word age with whatever numbers were typed in and would print these 


numbers where the word age ison line 20. Although we used the expression age in 
the above for the variable, we could have just as easily used a letter, for example b. 
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Reset the computer to clear the memory, ([CONTROL] [SHIFT] and [ESC] keys). If 
you had wanted an input made up of any characters,(letters or letters and numbers), 
the dollar sign $ must be used at the end of the variable. This type of variable is called 
a‘string variable’. 

Type in the following program: (Note that in line 20 you must put a space after the o 
in he L Lo and before the m in my). 


10 input "what is your name";name$ [RETURN] 
20 print "hello ";name$;" my name is Ronald" [RETURN] 
run [RETURN] 


On the screen you will see: 
What is your name? 


Type in your name then [RETURN] 
Ifthe name that you entered was Fred, you will see on the screen: 


Hello Fred my name is Ronald 


Although we used name$ in the above example for the name string variable, we 
could have just as easily used a letter, for example a$. Now we will combine the 
above 2 examples into one program. 


Reset the computer by pressing [CONTROL] [SHIFT] and [ESC]. Type in the 
following: 

5 сіз [RETURN] 

10 input "what is your name";a$ [RETURN] 

20 input "what is your age";b [RETURN] 

30 print "I must say ";a$;" you dont 

Look";b;"years old" [RETURN] 
run [RETURN] 


In this program we have used 2 variables, a $ for the name and b for the age. On the 
Screen you will see: 


what is your name? 


Now typein your name (e.g. F r ed), then [RETURN]. 
You will then be asked: 


what is your age? 


Now type in your age (e.g. 18), then [RETURN]. 
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Ifyourname were Fred and your age 18, on the screen you will see: 


I must say Fred you dont look 18 years old 


Editing a Program 


If any of the lines in the program had been typed incorrectly, resulting ina Syntax 
error or other error message, it would be possible to edit that line, rather than type 
it out again. To demonstrate this, let’s type in the previous program incorrectly: 


5 clss [RETURN] 
10 input "what is you name";a$ [RETURN] 
20 input "what is your age";b [RETURN] 
30 print "I must say";a$;" you dont 
look";b;"years old" [RETURN] 
There are3 mistakes in the above program: 


Inline 5 wetypedin c L ss insteadof c Ls. 
Inline 10 wetypedin y ou instead of your. 
Inline 30 we forgot to put a space between s a y and the quotation marks " 


"There are 3 main methods of editing a program. The first is to simply type in the new 
line again. When a line is retyped and entered, it replaces the same numbered line 
currently in the memory. 


Secondly, there is the editing cursor method. 


Lastly, there is the copy cursor method. 


Editing Cursor Method 


Tocorrect ће mistake in line 5 


Type: 
edit 5 [RETURN] 


Line 5 will then appear under line 30 with the cursor superimposed over the c in 
clss 


To edit out the extra s in clss, press the cursor right key 0 until the cursor 
appears over the last s, then press the [CLR] key. You will see the s disappear. 
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Now press [RETURN] and line 5 will now be corrected in the memory. Type in: 
list [RETURN] 


ќо check line 5 is now correct. 


Тһе AUT 0 command, described later in this manual, may be used to edit a number of 
successive lines in a similar manner to that described in the Editing Cursor Method. 


Copy Cursor Method 


The copy cursor is another cursor (in addition to the one already on the screen) which 
comes into view when you hold down [SHIFT] and press one of the cursor keys. It then 
detaches itself from the main cursor and can then be moved around the screen 
independently. ` 

To correct the mistakes in line 10 and 30, hold down the [SHIFT] key then press the 
cursor up key <> until the copy cursor is positioned over the very beginning of line 
10. You will notice the main cursor has not moved, so there are now two cursors on 
the screen. Now press the [COPY] key until the copy cursor is positioned over the 
space between y ou and name. You will notice that line 10 is being re-written on the 
last line and the main cursor stops at the same place as the copy cursor. Now type in 
the letter г. This will appear on the bottom line only. 


Тһе main cursor has moved but the copy cursor stayed where it was. Now press the 
[COPY] key until the whole of line 10 is copied. Press [RETURN] and this new line 
10 will be stored in the memory. The copy cursor disappears and the main cursor 
positions itself under the new line 10. To correct the second mistake, hold down 
[SHIFT] and press the cursor up key © until the copy cursor appears over the 
very beginning of line 30. 


Press [COPY] until the copy cursor is positioned over the quotation marks next to 
say. Now press the space bar once. A space will be inserted on the bottom line. Hold 
down the [COPY] key until the whole of line 3 0 is copied, then press [RETURN]. 


You can now list the program to check that it is corrected in the memory by typing in: 
List [RETURN] 


NOTE: To move the cursor quickly (during editing) to the left or right hand end of a 
line, hold down the [CONTROL] key then press the left Q or right cursor key once. 


Now reset the computer by pressing [CONTROL] [SHIFT] and [ESC] keys. 


IF 


The I F and THEN commands ask the computer to test for a specified condition, then 
take action depending upon the result of that test. For example, in the instruction: 
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if 1+1=2 then print "correct" [RETURN] 
.... the computer will test for the specified condition, and then take action accordingly. 


The keyword ELSE can be used to inform the IF THEN command as to what 
alternative action the computer should take if the tested condition is false, for 
example: 


if 1+1=0 then print "correct" else print "wrong" [RETURN 


We will now extend the previous program with the use of the if and then 
commands. 


Typein the following: Notice that we have added two symbols. < means less than, and 
is next to the M key. > means greater than,and is next to the < (less than) key. 


5 сіз [RETURN] 

10 input "what is your name";a$ [RETURN] 

20 input "what is your age";age [RETURN] 

30 if age < 13 then 60 [RETURN] 

40 if age < 20 then 70 [RETURN] 

50 if age > 19 then 80 [RETURN] 

60 print "So ";a$;", you are not quite а 
teenager at";age;"years old":end [RETURN] 

70 print "So ";a$;", you are a teenager 
at";age;"years old":end [RETURN] 

80 print "Oh well ";a$ you are no 
longer a teenager at";age;"years old" [RETURN] 


"То check this program is correct, type: 
List [RETURN] 
Nowtypein: 
run [RETURN] 
Now answer the questions prompted by the computer and see what happens. 
You can now see what effect the IF and THEN commands have in a program. We 
have also added the wcrd END at the end of lines 60 and 70. The keyword END is 


used literally to end the running of a program. If END wasn't there in line 60, the 
program would continue to run, and carry out lines 7 Ø and 80. 
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Likewise, if END wasn't there in line 70, the program would continue to run, and 
carry out line 80. The colon : before the word END separates it from the previous 
instruction. Colons : can be used to separate two or more instructions on one 
program line. We have also added line 5 to clear the screen at the start of the 
program. We will do this from now on in the following programs to make things look 
neater. 


Reset the computer by pressing [CONTROL] [SHIFT] and [ESC] keys. 


FOR and NEXT 


The FOR and NEXT commands are used when you want to carry out a specified 
operation a number of times. The instructions for the specified operation must be 
enclosed bythe FOR NEXT loop. 


Type in: 


5° cls [RETURN] 

10 for a=1 to 10 [RETURN] 

20 print "operation number";a [RETURN] 
30 next a [RETURN] 

run [RETURN] 


You will see that the operation in line 2 0 has been carried out 10 times, as instructed 
by the FOR command in line 10. Note also that the value of the variable a is 
increased by 1 each time. 

The keyword STEP may be used to inform the FOR NEXT command how much the 
variable should be ‘stepped’ per operation. For example, change line 1 to: 


10 for a=10 to 50 step 5 [RETURN] 
run [RETURN] 


Negative steps may also be used, for example: 


10 for а-100 to 0 step -10 [RETURN] 
run [RETURN] 


REM 


REM is short for RE Mark. The instruction tells the computer to ignore anything that 
follows it on the line. Hence you can use RE Marks to inform you of, for example, the 
title of a program, or the use ofa variable, as follows: 


10 REM Zap the invaders [RETURN] 
20 L=5 :REM number of lives [RETURN] 
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The single quote mark ' (which can be typed by holding down [SHIFT] and pressing 
the 7 key) can be used as a substitute for : REM. For example: 


10 'Zap the invaders [RETURN] 
20 L=5 'number of Lives [RETURN] 


GOSUB 


If there are a set of instructions within a program which are to be carried out a 
number of times, these instructions need not be typed in repeatedly every time they 
are needed in the program; instead, they can be made into a ‘sub-routine’ which when 
required, can be called into action by the command GOSUB followed by the line 
number. The end of the GOSUB-routine is marked by typing in the instruction 
RETURN. At this point the computer will return to the instruction that immediately 
followed the G 0 SUB command which it had just obeyed. 


For example, in the following program: 


10 a=2 

20 PRINT "here is the" 
30 FOR b=1 TO 12 

40 c-a*b 

50 PRINT a;"x";b;"z";c 
60 NEXT 

70 PRINT 


¿"times table" 


90 a-5 
180 PRINT "here is the";a;"times table" 
118 FOR b=1 TO 12 
120 с=а*Ь 
130 PRINT a;"x";b;"z";c 
140 NEXT 
150 PRINT 
' 


170 a-8 
180 PRINT "here is the";a;"times table" 
190 FOR b=1 TO 12 


250 a=9 

260 PRINT "here is the";a;"times table" 
270 FOR b=1 TO 12 

280 c-a*b 

290 PRINT а;"х";Ь;"=";с 


300 NEXT 
310 PRINT 
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...you can see a number of lines which have to be repeated at various points in the 
program, for example the section from line 260 to 319. Let's make that section into 
a sub-routine and add the instruction RETURN at the end. Then, we'll call the 
sub-routine using the command GOSUB 260 whenever we want to use it. The 
program now looks like this: 


10 a-2 

15 cosuB 260 

80 ' 

90 а-5 

95 60508 260 

160! 

170 a=8 

175 GOSUB 260 

240 ' 

250 a=9 

255 GOSUB 260 

256 END 

257" 

260 PRINT "here is the";a;"times table" 
270 FOR b=1 TO 12 

280 c=a*b 
290 PRINT a; 
300 NEXT 
310 PRINT 
315 RETURN 


Pb" 


See how much tedious typing we've saved ourselves? Well designed sub-routines are 
a principal part of computing. They lead to ‘structured’ programs, and develop good 
programming habits. 


Always bear in mind when writing sub-routines, that you do not necessarily have to 
‘jump into’ the sub-routine at the same point, i.e. its beginning. A sub-routine written 
from lines 500 to 800 can be called by: GOSUB 500, ог GOSUB 640, ог GOSUB 
790. 


Note in the above program, that the instruction END is used in line 256. Otherwise 
the program would naturally continue after line 255, and would carry out line 260, 
which is NOT required unless called by GOSUB. 
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Simple Arithmetic 


Your computer can be used as a calculator quite easily. 


To understand this, carry out the following examples. We will use the ? symbol 
instead of typing pr int in this section. The answer will be printed as soon as the 


[RETURN] key is pressed. 
Addition 
(use [SHIFT] and ; keys for plus) 
Type: 
?3*3 [RETURN] 
6 


(Note that you do NOT type in the equals sign =) 


Type: 
28*4 [RETURN] 


12 
Subtraction 
(useunshifted 7 key for minus) 
Type: 
24-3 [RETURN] 
1 


Type: 
28-4 [RETURN] 
4 


Multiplication 
(Use [SHIFT] and : keys for multiply (* means x) 


Type: 
?3*3 [RETURN] 
9 


Type: 
?8*4 [RETURN] 
32 
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Division 
(use unshifted ? key for divide ( / means +) 
Type: 
йн 7 3 [RETURN] 
Туре: 
? 5 /4 [RETURN] 


Integer Division 
(use \ for division with removal ofthe remainder) 


Type: 
210\6 [RETURN] 
1 


Type: 
220\3 [RETURN] 
6 


Modulus 
(use MOD toobtain the remainder portion after integer division) 
Type: 

? 1° MOD 4 [RETURN] 


‘Type: 
29 MOD 3 [RETURN] 
0 


Square Root 


To find the square root of a number, use sqr ( ). The number that you want the 
square root of should be typed inside the brackets. 


Type: 
?sqr(16) [RETURN] (this means V16) 
4 
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Type: 


?sqr (100) [RETURN] 
18 


Exponentiation 
(use unshifted £ key for exponentiation) 


Exponentiation is when a number is raised to a power of another. For example 3 
squared (3 7 2),3 cubed (3 1 3) etc. 


Type: 


2313 [RETURN] (this means 3°) 
27 


‘Type: 


2814 [RETURN] (this means 89) 
4096 


Cube Root 


You can quite easily calculate cube roots by using a similar method to the last 
example. 


‘To find the cube root of 27 (s V27) 
Type: 
227 (1/3) [RETURN] 
3 


To find the cube root of 125 
Type: 
21257 (1/3). [RETURN] 
5 
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Mixed Calculations 
(+,-,*,/) 


Mixed calculations are understood by the computer, but they are calculated within 
certain priorities. 


First priority is given to multiplication and division, then addition and subtraction. 
‘These priorities apply only to calculations containing only these four operations. 


Ifthe calculation was: 
3+7-2*7/4 

You may think this would be calculated as: 
347-2 *7 /4 

8 *7 /4 


56/4 
= 14 


In fact it is calculated as: 


347-2к7/4 
=3+7-14/4 


Prove this by typing in this calculation as it is written: 


Туре: 


?3+7-2*7/4 [RETURN] 
6.5 


You can change the way the computer calculated this by adding brackets. The 


computer will deal with the calculation inside brackets prior to the multiplication 
etc, outside the brackets. Prove this by typing in the calculation including brackets. 


Type: 


2(34+7-2)*7/4 [RETURN] 
14 
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The priority of ALL mathematical operators is as follows: 


1 Exponentiation 
MOD Modulus 
= Unary minus (declares a number as negative) 
*and/ Multiplication and division 
Integer division 
*and- Addition and Subtraction 


Further Exponents 


If you want to use very large or very small numbers in calculations, it is sometimes 
useful to use scientific notation. The letter E is used for the exponent of numbers to 
the base 10. You may use either lower case e or upper case E. 


For example 300 is the same as 3x10?. In scientific notation, this is ЗЕ 2. Similarly, 
0.03 is the same as 3x10”. In scientific notation this is 3E-2. Try the following 
examples. 


You can type in: 
230*10 [RETURN] 
300 


or youcan type: 


23Е1%1Е1 [RETURN] 
300 


235000*1000 [RETURN] ....ог... ?3E3*1E3 [RETURN] 
3000000 


23000*0.001 [RETURN] ....or.... ?3E3*1E-3 [RETURN] 
3 
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Part 7: Save It.... 


Now that you've exercised your fingers by typing in a few instructions, you'll 
probably want to know how to save a program from the computer onto disc, and how 
toloaditback from disc into the computer. 

Even if you are familiar with cassette saving and loading, it is worth pointing out 
some important information which must be observed when dealing with disc 
program files. 

The 2 most apparent differences will be that firstly, a new blank disc cannot simply be 
taken out of its wrapper and recorded onto, as is the case with cassettes. À new disc 
must be first be ‘formatted’, and this process will be explained in a moment. 


The other point worth mentioning here, is the importance of correctly ‘naming’ disc 
files. Cassette filenames generally conform to very loose standards, varying greatly 
in length, being at times omitted. Not so with discs. Disc filenames must conform 
Strictly to CP/M standards, and will be explained later in this section. 


Formatting discs for use 
Before writing any data onto a new blank disc, the disc itself must first be formatted. 
Formatting can be likened to building a series of shelves and dividers onto a disc prior 


to the storage of information on those shelves; in other words, laying down an 
organised framework around which data can be put in or taken out. 


Formatting divides the disc into 360 distinctly separate areas: 


Outer Case 


Sector 


Track 0 
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There are 40 tracks from the outside of the disc (Track 0), to the inside (Track 39), and 
the circumference of the disc is divided into 9 sectors. 


Each track in a sector can store up to 512 bytes of data; hence the total available: space 
on each side of a disc is 180Kbytes. 


First Steps Using the Master CP/M System Discs 
Package 
To prepare a new blank disc for reading and writing your own programs onto, you will 


need to format the new disc. This is carried out using Side 1 of your master CP/M 
system discs package (supplied with the computer). 


Switch the system on, and insert Side 1 of the master system discs package into the 
drive. 


Ifyou are operating 2 disc drives, always insert Side 1 into the main disc drive within 
the computer (Drive A.) 


Type in: 
Їсрт [RETURN] 
(You will find the bar symbol | by holding down [SHIFT] and pressing the @ key.) 
After a few seconds you will see the following message at the top of the screen: 
CP/M Plus Amstrad Consumer Electronics ріс 


This is a “S i gn on’ message indicating that the computer is now under the control of 
the CP/M Plus operating system. You will also see the letter A> together with the 
cursor displayed on the screen. This is a prompt, (similar to Ready during normal 
BASIC operation) indicating that the computer is awaiting your instructions. 


Once you are operating CP/M, you cannot enter BASIC commands into the computer, 
as these will not be understood. 


Iffor example, you type in the BASIC command: 
cls [RETURN] 
The Computer will return your entry, together with a question mark: 


CLS? 
.. indicating that it does not understand your command. 
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To look briefly at some ofthe CP/M commands, type in: 
dir [RETURN] 


On the screen you will see a D I.Rectory of CP/M and utility COMmands, one of which 
isDISCKIT3.Typein: 


disckit3 [RETURN] 


After a few moments, you will see the DISC KIT opening message at the top of the 
screen, followed by: 


One drive found 
This message tells you that you are running the DISC KIT utility program, and the 


computer has detected that you are operating only one disc drive (the one within the 
computer). 


Ifyou have connected an additional disc drive to the system, the message will say: 
Two drives found 


At the bottom of the screen, you will see the following: 


Copy 


Format 


Verify 


Exit from program 


This is known as the main DISC KIT menu. The numbers in boxes refer to the 
function keys at the right hand end of the keyboard (marked #0, f1, 14, and #7), and 
pressing one ofthese keys takes you to your selected menu choice. 


Note that pressing function key number 0 at this point will exit from the DISC KIT 
program back to CP/M Direct Console Mode (the A> prompt). 


We now wantto format a disc, so press function key number 4(f4). 


BEWARE 
FORMATTING A PREVIOUSLY RECORDED DISC WILL ERASE ITS CONTENTS 
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You willnow seea new menu offering you a choice of different formats, namely: 


System format [°| 
Data format m 
Vendor format EN 
Exit menu |. | 


As before, we can now press one of the function keys (f3, f6, or f9) to select the type of 
format we want. Each of these different formats will be explained later in the 
manual, but for now, select Data format by pressing function key number 6. 

Note that pressing the . key (below ІЗ, (6, and f9) exits from the Format mode back to 
the main DISC KIT menu. 

Having pressed function key number 6, (and assuming that you have not connected 
an additional disc drive to the computer) you will see the message: 


Format as Data 


Any other key to exit menu 


At this point, you should remove your master CP/M system disc, and insert the disc 
that you wish to format. The side of the disc to be formatted should be placed face-up 
inthe drive. 


Now press the Y key, (Y for Yes, meaning ‘go-ahead and format the disc’). 


The disc will be formatted, tracks 0 to 39; the current track number being indicated at 
the top left of the screen. 


You will not be able to format a disc which has its write protect hole open. Attempting 
to do so will result in the message: 


Disc write-protected 
Insert disc to format 
R-etry or C-ancel 


... whereupon you should type С to Cancel, remove the disc, and insert the correct disc 
for formatting, with its write protect hole closed. 
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Make sure that you don't close the write protect hole on a disc that contains programs 
you want to keep, and NEVER close the write protect holes on your master CP/M 
system discs package. 

When formatting is completed, you willbe asked to remove your newly formatted disc 
from the drive, then to press any key to continue. 


Having done so, you will be able to format another disc by inserting it and pressing Y 
again. This may be repeated any number of times until you have formatted all the 
discs you require in that particular format. 


When you have finished formatting, press any key (other than Y) to return to the 
main DISC KIT menu once again. 


The menu options Сору and Ver i f y will be dealt with later in this manual, but for 
now, having learnt to format with CP/M, reset the computer using [CONTROL] 


[SHIFT] [ESC]. 

Always keep the master copies of your CP/M system discs in a safe place, as they are 
literally the key to your system. Later in this manual, you will be shown how to make 
‘working copies’ of your system discs, so that you can keep your master copies safely 
locked away. 


Formatting on a 2-drive system 
Follow the instructions above, selecting the Format option from the main DISC 
KIT menu by pressing key f4, then select Da t a f or mat by pressing key 16. 


At this point you will be shown a third menu offering you the choice of drive on which 
to format: 


Format B: EN 


Exit menu 


Choosing the option Format B: (key f5) will enable you to leave your system disc 
(Side 1) in Drive A, while you place the disc to be formatted in Drive В. 


After selecting Format B:, you may then either press Y to go ahead with 
formatting, or any other key to exitto the main DISC KIT menu. 
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If you have selected the Format A: option (key f8), you MUST then remember to 
remove your system disc from Drive A, and instead insert the disc to be formatted. 


Don’t forget - NEVER RISK OVERWRITING YOUR MASTER CP/M SYSTEM 
DISCS. 


Now that we have a formatted blank disc (or two), we can start to manipulate BASIC 
programs to and from disc. 


Saving a Program in Memory onto Disc 


Having typed a program into the computer’s memory, save it onto disc by typing in: 
save "filename" [RETURN] 


Notethatthe naming ofthe program is obligatory. 


A filename on disc consists of 2 parts (fields). The first part is obligatory and can 
contain up to 8 characters. Letters and numbers may be used but NO spaces or 
punctuation marks. This first field usually contains the name ofthe program. 


The second field is optional. You can use up to 3 characters, but again no spaces or 
punctuation. The 2 fields are separated by a dot . 


If you do not specify a second field, the system will automatically label it with a token 
ofits own, suchas . BAS for BASIC files or . BIN for binary (machine code) files. 


As an example of saving to disc, write a short program into the memory, insert a 
formatted disc, then type in: 


save "example" [RETURN] 
After a few seconds, the prompt Ready will appear on the screen, and the program 
will have been saved onto disc. (If not, check any error message on the screen to 


establish whether you either forgot to insert your disc into the correct drive, forgot to 
close the write protect hole, or mistyped the command.) 


Catalog 


After saving the above program, type in: 


cat [RETURN] 
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On the screen you will see: 
Drive А: user 0 
EXAMPLE.BAS 1K 
177K free 
The filename will be displayed, including any specified or token second field, together 


with the file length (to the nearest higher Kbyte). The amount of free space on the disc 
will also be displayed. 


Loading from Disc 


Programs may be loaded from disc then run, using the commands: 


load "filename" [RETURN] 
run [RETURN] 


...or they may be run directly using the command: 
run "filename" [RETURN] 


Note that protected programs may be run directly only. 


l Aand | B 


If you are operating an additional disc drive, you may specify which Drive (A or B) 
that you require a function to be performed on by typing in: 


la [RETURN] 
„ог... 
Ib [RETURN] 


х. before issuing the SAVE, САТ, ог LOAD commands. 
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Copying Programs from Disc to Disc 


Using the commands already learnt in this section, it can be seen that disc to disc 
program copying is performed simply by loading the program into the memory from 
the original (source) disc, removing the source disc, and saving the program onto the 
new (destination) disc. 


To save a program from disc to disc using 2 disc drives, you may prefer to insert your 
source disc into, for example, Drive B, and your destination disc into Drive A. To copy 
a program in this way, type in: 

Ib [RETURN] 

load "filename" [RETURN] 

la [RETURN] 

save "filename" [RETURN] 


There are four ways in which files may be SAVEd by the CPC6128. In addition to 
ordinary BASIC file saving, by: 


save "filename" [RETURN] 


». there are three alternative methods, for more specialised purposes: 


ASCIIFiles 
save "filename",a [RETURN] 


Adding the suffix , a instructs the computer to save the program or data in the form 
of an ASCII text file. This method of saving data applies to files created by 
wordprocessors and other applications programs, and its use will be further discussed 
as applications are encountered. 


Protected Files 
save "filename",p [RETURN] 


Adding the suffix ,p tells the computer to protect the data so that the program 
cannot be LIS Ted after LOA Ding it, or RUNning it then stopping its execution using 
the [ESC] key function. 
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Programs saved in this way can only be run directly, using the commands: 
run "filename" [RETURN] 

„= 
chain "filename" [RETURN] 


If you anticipate wanting to edit or alter the program, you should also keep a copy for 
yourself in unprotected form, i.e. without the , p suffix. 


Binary Files 


save "filename",b, «startingaddress: , Jength in bytes 
[ , optional entry point» [RETURN] 


This option allows you to perform a binary save where a complete block of data in the 
computer’s RAM is stored onto disc exactly as it occurs in the memory. It is necessary 
to instruct the computer where the section of memory you need to save starts, how 
long it is, and if required, the memory address at which to start execution should the 
file be run asa program. 


Screen Dump 


This binary save feature allows data from the screen memory to be stored directly 
onto disc in the form of a screen dump. The contents of the screen will be saved exactly 
as it is seen, using the command: 4 


save "scrndump",b,49152,16384 [RETURN] 
«Where 49152 is the starting address of the screen memory, and 16384 is the 
length ofthe screen memory that you wish to save. 
Tocall it back onto the screen, type in: 

load "scrndump" [RETURN] 
More information on using the system to manipulate program files between discs 
(and cassette), will be found later in this manual. 


Finally, check that you have observed the following warnings given at the beginning 
of this manual, in the section entitled IMPORTANT": 


INSTALLATION NOTES 5,6,7 
OPERATION NOTES 1,2,3,4,5,6,7,9 
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Part 8: Understanding Modes, 
Colours and Graphics.... 


The Amstrad CPC6128 Colour Personal Computer has three modes of screen display 
operation: Mode 0, Mode 1, and Mode 2. 

When the computer is first switched on, it is automatically in Mode 1. 

To understand the different modes, switch on the computer and press the number 1 
key. Hold it down until two lines are full of 1’s. If you now count the number of 1’s ona 
line, you will see that there are 40. This means that in Mode 1, there are 40 columns, 
Press [RETURN] - you will get a Syntax error message, but don’t worry, this is 
just a quick way of getting back to the Ready message that tells you the computer is 
waiting for your next instruction. 


Now type in: 

mode 0 [RETURN] 
You will see that the characters on the screen are now larger. Press the number 1 key 
again and hold it down until two lines are full of 1’s. If you count the number of 1’s on 


a line, you will see there are 20. This means that in Mode 0, there are 20 columns. 
Press [RETURN] again. 


Now typein: 
mode 2 [RETURN] 


You will see that this is the smallest mode, and if you again type in a line of 1’s, you 
will count 80. This means that in Mode 2 there are 80 columns. 


Torecap: 
Mode 0 = 20 columns 


Mode 1 = 40 columns 
Mode 2 = 80 columns 


Finally, press [RETURN] once again. 
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Colours 


There is a choice of 27 colours. These are shown on a green monitor (GT65) as various 
shades of green. If you purchased the GT65 monitor, you can buy the AMSTRAD MP2 
Modulator/Power supply in order to use the computer’s colour facilities on your 
domestic colour T. V. 

In Mode 0, up to 16 ofthe 27 available colours can be put onto the screen at any time. 
In Mode 1, up to 4 of the 27 colours can be put onto the screen at any time. 

In Mode 2, up to 2 of the 27 colours can be put onto the screen at any time. 

You are able to change the colour of the BORDER, the PAPER (the area where the 
characters can appear) or the PEN (the character itself), all independently of each 
other. 

The 27 colours available are listed in Table 1, each with their INK colour reference 
number. 

For convenience, this table also appears on the panel at the top right hand side of the 
computer. 


MASTER COLOUR CHART 
Ink Ink Ink ] 
Мо. Colour/Ink No. Colour/Ink No.  Colour/Ink 
0 Black 9 Green 18 Bright Green 
H Blue 10 Cyan 19 Sea Green 
2 Bright Blue 11 Sky Blue 20 Bright Cyan 
3 Red 12 Yellow 21 LimeGreen 
4 Magenta 13 White 22 PastelGreen 
5 Mauve 14 Pastel Blue 23 Pastel Cyan 
6 Bright Red 15 Orange 24 Bright Yellow 
* Purple 16 Pink 25 Pastel Yellow 
8 | BrightMagenta 17 PastelMagenta 26 Bright White 
L 


Table 1: The INK numbers and colours 


Asexplained earlier, when the computer is first switched on, it is in Mode 1. To return 
to Mode 1 from a different mode, type in: 


mode 1 [RETURN] 
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Thescreen display 


PEN 


аласа a LEA? 


paste 1.1 
ares 


BORDER 
PAPER 


RM STAN} 


The BORDER is the area surrounding the PAPER. (Note that when the computer is 
first switched on, the BORDER and PAPER are both blue). The characters on the 
screen can only appear inside the border. The PAPER is the background area behind 
acharacter, while the PEN writes the character itself. 


Now we will explain how the colours that you see on the screen are selected, and how 
you can change these to your own choice. 


When you first switch on, or reset the computer, the BORDER is always set to colour 
number 1. Look up number 1 on the master colour chart, and you will see that colour 
number 1 is blue. The colour of the border can be changed by using the command: 
BORDER followed by the colour number. To change the border to white, type in: 


border 13 [RETURN] 


So far, so good. Now for the tricky bit.... 


When you first switch on, or reset the computer, PAPER number 0, and PEN number 
1 are always automatically selected. This does NOT mean that you look up numbers 
0 and 1 on the master colour chart and away you go.... 


The important thing to remember is that 0 and 1 are PAPER and PEN numbers; 
they are NOT ink colour numbers. To understand this, imagine having 4 pens on your 
desk numbered 0,1,2, and 3, and being able to fill each ofthese pens with any colour of 
your choice out of 27 bottles of ink, numbered 0 to 26. It can be seen therefore, that pen 
number 1 is not necessarily always the same colour; as it can be filled with a different. 
ink, in fact you could fill each ofthe 4 pens with the same ink. 
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So it is with the computer. Using the PEN and INK commands, you can select the pen 
number, and then the ink colour for that pen. 


Remembering that we are operating in Mode 1 (40 columns), look at Table 2 below, 
and you will see from the first and third columns, that PEN number 1 corresponds to 
INK colour number 24. Now look up INK number 24 on the master colour chart 
(Table 1) and you will see that the colour listed is bright yellow, i.e. the colour of the 
characters on the screen when you first switch on. 


DEFAULT SETTINGS 


Ink Colour Ink Colour Ink Colour 
Paper/Pen No. Mode0 Model Mode2 


Flashing 1,24 
Flashing 16,11 


Table 2: PAPER/PEN/MODE/INK reference 
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The PAPER/PEN/INK relationships given in Table 2 are not fixed however. They are 
the default settings when you switch-on or reset the computer. You can change them 
by using the INK command. The command has two parts (or ‘parameters’). The first 
part is the number of the PAPER or PEN that you are going to fill with ink, and the 
second part is the colour of the ink itself. The two parts of the command are separated 
by acomma , 


So, now that we know that we are using PEN number 1, let’s change the colour of the 
INK in that pen, to orange. 


Type in: 
ink 1,15 [RETURN] 


....and you will see that the characters on the screen have changed colour. 


The background colour can also be changed using the INK command. We know that 
PAPER number is selected at switch on, so let's change the colour of the INK in 
PAPER number 0 to green (colour number 9) by typing in the command: 


ink 0,9 [RETURN] 
Now let's use a different pen altogether. Type in: 
pen 3 [RETURN] 


Notice how only the colour of the new characters (after the command) changes. 
You're using PEN number 3 now, and you will see from Tables 1 and 2 that the INK 
initially loaded into PEN number 3 is colour number 6 (bright red). Change it to pink 
by typing in: 


ink 3,16 [RETURN] 


Remember, 3 is the colour of the pen that you selected earlier with the command: 
pen 3,andthat 16 isthe ink colour- pink. 
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Now let's change to a new paper. When a new paper is selected, the previous 
background colour behind the characters will NOT change because that colour was 
‘printed’ by a different PA P E R. To see this, type in: 

paper 2 [RETURN] 


Once again use Tables 1 and 2 to see why the background colour for PAPER number 
2 is bright cyan. Change it to black by typing in: 


ink 2,0 [RETURN] 
On the screen now, we have characters written by PEN numbers 1 and 3, on a 
background of PAPER numbers @ and 2. INKs can be changed in a PEN or PAPER 
that you are not currently using. For example, type in: 


ink 1,2 [RETURN] 


..which changes the colour of all the previous characters typed in with PEN 
number 1. 


‘Type in: 
cls [RETURN] 


ло clear the screen. 


It should now be possible for you to instruct the computer to return to its original 
colours (blue border and background with bright yellow characters) using the 
BORDER, PAPER, PEN, and INK commands. See if you can do so. If you can’t, then 
reset the computer using the [CONTROL] [SHIFT] and [ESC] keys. 


Flashing Colours 


It is possible to make the colour of the characters flash between one colour and 
another. This can be achieved by adding an extra colour number to the INK 
command of the PEN. 


To see the characters on the screen flashing between bright white and bright red, 
reset the computer using [CONTROL] [SHIFT] [ESC], and type in: 


ink 1,26,6 [RETURN] 
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In this case, 1 is the PEN number, while 26 is the colour bright white, and 6 is the 
alternate colour, bright red. 


It is also possible to make the colour of the PAPER behind the characters flash 
between one colour and another. This can be achieved by adding an extra colour 
number to the INK command for the PAPER. 


To see the PAPER flashing between green and bright yellow behind the characters, 
type іп: 

ink 0,9,24 [RETURN] 
In this case @ is the PAPER number, while 9 is the colour green, and 24 is the 
alternate colour bright yellow. 
Now reset the computer using [CONTROL] [SHIFT] [ESC] 


Note from Table 2 that in mode 0, two of the PENs (numbers 14 and 15), together 
with two of the PA P E Rs (numbers 14 and 15) are default flashing colours. In other 
words, their INK commands have been pre-programmed with an extra colour 
parameter, 


Type in the following: 

mode 0 [RETURN] 

pen 15 [RETURN] 
on the screen you will see the word Re ady flashing between sky blue and pink. 
Now type in: 


paper 14 [RETURN] 
cls [RETURN] 


You will now see that in addition to the word Ready flashing between sky blue and 
pink, the background PAPER is also flashing between yellow and blue. 


PEN and PAPER numbers 14 and 15 may be re-programmed using the INK 
command to other flashing colours, or to one steady colour. 


Finally, it is possible to make the BORDER flash between two colours by adding an 
extra colour number to the BORDER command. Type in: 
border 6,9 [RETURN] 


You will now see that the BORDER is flashing between bright red and green. Note 
that the border may be set to any one, or pair of the 27 colours, regardless of whether 
you are operating in mode 0, 1, or 2. 


Now resetthe computer using [CONTROL] [SHIFT] [ESC] 
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For further demonstration of the colours available, type in the following program, 
then run it. 


10 MODE @ [RETURN] 
20 гасе=600: REM sets speed of program [RETURN] 
30 FOR b=0 TO 26 [RETURN] 

40 LOCATE 3,12 [RETURN] 

50 BORDER b [RETURN] 

60 PRINT "border colour";b [RETURN] 
70 FOR t=1 TO rate [RETURN] 

80 NEXT t,b [RETURN] 

90 CLG [RETURN] 

100 FOR p=0 ТО 15 [RETURN] 

110 PAPER p [RETURN] 

120 PRINT "paper";p [RETURN] 

130 FOR n=0 TO 15 [RETURN] 

140 PEN n [RETURN] 

150 PRINT "pen";n [RETURN] 

160 NEXT n [RETURN] 

170 FOR t-1 TO rate*2 [RETURN] 

180 NEXT t,p [RETURN] 

190 MODE 1 [RETURN] 

200 BORDER 1 [RETURN] 

210 PAPER 0 [RETURN] 

220 PEN 1 [RETURN] 

230 INK 0,1 [RETURN] 

240 INK 1,24 [RETURN] 

run [RETURN] 


IMPORTANT 


In the above program, and in later chapters and listings in this manual, BASIC 
keywords will appear in upper case (CAPITAL) letters. This is how keywords 
appear when a program is LISTed by the computer. In general it is preferable 
that you type instructions or programs using lower case (small) letters, since it will 
help you spot typing mistakes when LISTing the program - (because the 
mis-typed BASIC keyword will NOT be converted to upper case). 


For the remainder of this Foundation course, we will list programs in both upper 
and lower case, so that you get accustomed to this aspect of operation. 


A variable's name, such as x or a $, will NOT be converted to upper case when the 
program is LI S Ted although the computer will recognise the name regardless of 
whether it appears in upper or lower case in the program. 


Attention 


From this point in the manual, you will not be instructed to press the [RETURN] 
key after each line. Therefore it is assumed that you will do it automatically. 
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Graphics 


There are a number of character symbols in the computer's memory. To print any one 
of these, we use the keyword: 


chr$( ) 


Inside the brackets should be the symbol number, which is in the range from 32 tc 
255. 


Reset the computer, [CONTROL] [SHIFT] [ESC], then type in: 
print chr$(250) 


Don’t forget to press [RETURN]. On the screen you will see character number 250, 
which is a man walking to the right. 


To see all the characters and symbols appear on the screen together with their 
associated numbers, type in the following program, once again remembering to press 
[RETURN] after each line. 


10 for n=32 to 255 
20 print n;chr$(n); 
30 next n 

run 


For your reference, the range of characters together with their respective numbers 
appear in the chapter entitled ‘For your reference....’. 


LOCATE 


This command is used to reposition the character cursor to a specified part of the 
screen. Unless changed by the L o c a t e command, the character cursor starts at the 
top left corner of the screen, which corresponds to x,y co-ordinates 1,1 (x is the 
horizontal position and y is the vertical position). In mode 1 there are 40 columns and 
25 lines. Therefore, to position a character in the centre of the top line in mode 1, we 
would use 20,1 as the x,y co-ordinates. 


Tosee this, type in: (remember to [RETURN] each line) 
mode 1...8сгееп clears, cursor moves to top left. 
10 locate 20,1 


20 print chr$(250) 
run 
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Just to prove that this ison the topline, type in: 
border Ø 

The BORDER will now be black and you will see the man at the middle of the top line 

of the screen. 

In mode 0, there are only 20 columns, but the same 25 lines. If you now type in: 


mode @ 
run 


...you will see that the man now appears at the top right corner of the screen. This 
happens because the x co-ordinate 20, is the last column in mode 0. 

In mode 2, there are 80 columns and 25 lines. Using the same program, you will 
probably be able to guess where the man will appear. Type in: 


mode 2 
run 


Return to mode 1 by typing in: 
mode 1 


Now experiment for yourself, modifying the Locate and chr$ ( ) numbers to 
position various characters anywhere on the screen. Just for example, type in: 


locate 20,12:print chr$(24B) 
You willsee an arrow in the centre of the screen. Note that in this instruction: 


20 was the horizontal (x) co-ordinate (in the range 1 to 40) 
12 wasthe vertical (y) co-ordinate (in the range 1 to 25) 
240 was the character symbol number (in the range 32 to 255) 


To get the character symbol 250 to be repeated across the screen, type in the following 
program: 


10 cLS 

20 FOR x-1 TO 39 
30 LOCATE x,20 

50 PRINT СНВ5(250) 
60 МЕХТ х 

70 GOTO 10 


Press [ESC] key twice to break. 
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In order to remove the previous character from the screen before printing the next 
character,type in: 


50 print " ";chr$(250) 


(This new line 50 automatically replaces the previously typed in line 50.) 


Now type in: 


run 


FRAME 
To improve the movement of the character across the screen, add the following line: 
40 frame 


The FRAME command synchronises the movement of objects on the screen to the 
display frame scanning frequency. If that’s a bit technical for you, just remember that 
the command should be used whenever you want to move characters or graphics 
around the screen smoothly. 


This program can be further enhanced to improve the movement by adding some 
delay loops and by using a different returning character symbol. 


Type in: 
list 


Now add the following lines to the program: 


70 FOR n=1 TO 300:NEXT n 
80 FOR x=39 TO 1 STEP -1 
90 LOCATE х,20 

100 FRAME 

110 PRINT CHR$(251); 
120 МЕХТ х 

130 FOR n=1 ТО 300:МЕХТ n 
140 GOTO 20 

run 
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PLOT 


Unlike the L0 CA T E command, P L0 T may be used to determine the position of the 
graphics cursor, using pixel co-ordinates. (A pixel is the smallest possible segment of 
the screen). 


Note that the graphics cursor is not visible and is different from the character cursor. 


There are 640 horizontal pixels by 400 vertical pixels. The x,y co-ordinates are 
positioned with respect to the bottom left corner of the screen, which has x,y 
co-ordinates of 0,0. Unlike the LOCATE command used for characters, the 
co-ordinates do not differ between modes 0,1, or 2. 


"То вее this, first reset the computer using [CONTROL] [SHIFT] [ESC], then type in: 
plot 520,200 


Asmall dot will appear in the centre of the screen. 
Now change the mode by typing in: 


mode @ 
plot 520,200 


You will see the dot is still in the centre but is now larger. Change the mode again and 
type in the same command to see the effect in mode 2: 


mode 2 
plot 320,200 


The dotis still in the centre, but is now much smaller. 


Plot several dots over the screen in various modes, in order to accustom yourself with 
this command. When you have finished, return to mode 1 and clear the screen by 
typingin: 


mode 1 


DRAW 


First reset the computer using [CONTROL] [SHIFT] [ESC]. The DRAW command 
draws a line from the current graphics cursor position. To see this in more detail, 
draw a rectangle on the screen by using the following program. 


We start by repositioning the graphics cursor with a PLOT command, then DRAWing 
a line from the graphics cursor position, up towards the top left corner, then from 
there to the right corner etc, etc. Type in: 
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5 cls 

10 plot 10,10 
20 аган 10,390 
30 draw 650,390 
40 draw 630,10 
50 аган 10,10 
60 goto 60 

гип 


Press [ESC]twice to break from thisprogram. 


(Notice line 6@ of this program; the computer is told to ‘loop’ around line 6@ again 
and again, until you ‘break’ from the program by pressing [ESC] twice. This sort of 
instruction is useful if you do not want the computer to automatically ‘break’ at the 
end of a program and display the Ве a d y prompt that usually appears on the screen.) 


Now add the following lines to the program, to draw a second rectangle inside the 
first. Type in: 


60 plot 20,20 
70 draw 20,380 
80 draw 620,380 
90 draw 620,20 
100 draw 20,20 
110 goto 110 
run 


Again, press [ESC] twice to break from this program. 


MOVE 


The MOVE command operates in a similar manner to PLOT, in that the graphics 
cursor is moved to the position specified by the x,y co-ordinates; however the pixel 
(dot) at the new graphics cursor location is NOT plotted. 


Type in: 

cls 

move 639,399 
Although we can see no sign of it on the screen, we have moved the graphics cursor to 
the top right corner. 
Let’s prove it by drawing a line from that position to the centre of the screen, by 
typing in: 


draw 520,200 
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Circles 


Circles can either be plotted or drawn. One method of forming a circle is to plot the 
x,y, co-ordinates of each point on the circumference of a circle. Refer to the diagram 
below and you will see that point ‘p’ on the circumference can be plotted using x and y 
co-ordinates. These are: 


x=190*cos(a) 
y=190*sin(a) 


EDGE OF 
SCREEN 


Plotting the points of a circle. 


In previous programs we have plotted points with respect to the bottom left corner of 
the screen. If we wanted to position a circle in the centre of the screen we would have 
to plot the centre of the circle at co-ordinates 320,200 then position all points of the 
circle relative to the centre position, by adding on the centre position co-ordinates. 


A program to plot a circle would then be like this. Type in: 


10 CLS 

20 DEG 

30 FOR a=1 TO 360 

40 MOVE 320,200 

50 DRAW 320*190*COS (a) ,200* 190*SIN(a) 
60 NEXT 


Chapter 1 Page 60 Foundation Course 


Note the use of the keyword NEW before typing in this program. This tells the 
computer to clear any program in the memory (in a similar manner to [CONTROL] 
[SHIFT][ESC]). However the screen itselfis not cleared. 


The radius of the circle can be reduced by lowering the 190 figure (190 refers to 
pixels). 


Tosee the effect of the circle being plotted differently (in radians), delete line 20 from 
the program by typing in: 


20 


To see a solid circle drawn by lines from the centre, edit line 50, replacing the word 
plot with the word draw. (Line 50 will then be): 


50 draw 320+190*cos(a),200+190*sin(a) 


Try this with and without line 20 again. 


You will note that line 60 of this program is NEXT instead of NEXT a. It is 
permissible to simply type ‘NEXT’ on its own; the computer will work out which FOR 
expression the NEXT is to be associated with. In programs where there are numerous 
FOR and NEXT loops however, you may wish to add the variable’s name after the 
word NEXT inorder to identify the NEXT statement when studying the program. 


ORIGIN 


In the previous program we used the MOVE command to establish the centre of a 
circle, then added the x,y co-ordinates to this centre position. Instead of adding these 
centre co-ordinates to the point plotted, we can use the ORIGIN command. This will 
position each of the x,y co-ordinates relative to the ORIGIN. Tosee this, type in: 


new 
10 cls 

20 for a=1 to 360 

30 origin 320,200 

40 plot 190*cos(a),190*sin(a) 
50 next 

run 
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To plot four smaller circles on the screen, type in the following program: 


new 

10 CLS 

20 FOR а-1 TO 360 

30 ORIGIN 196,282 

40 PLOT 50*COS(a),50*SIN(a) 
50 ORIGIN 442,282 

60 PLOT 50*COS(a),50*SIN(a) 
70 ORIGIN 196,116 

80 PLOT 50*COS(a),50*SIN(a) 
90 ORIGIN 442,116 

100 PLOT 50*COS(a),50*SIN(a) 


110 NEXT 
run 


Tosee a different way of creating a circle, type in the following program: 


new 

10 MODE 1 

20 ORIGIN 520,200 

30 DEG 

40 MOVE 0,190 

50 FOR a=0 TO 360 STEP 10 

60 DRAW 190*SIN(a),190*COS(a) 
70 NEXT 


This time a line is DRAWn from co-ordinate to co-ordinate around the circumference 
of the circle. Note how the circle is drawn much quicker than it is plotted. 

Once again observe the effect of removing the DEG command, by deleting line 30, 
then RUNning the program again. 


FILL 


The F I LL command is used to fill an area of the screen which is enclosed by drawn ог 
edge of screen/graphics window boundaries. 


Reset the computer, [CONTROL] [SHIFT] [ESC], then type in: 


new 

10 cls 

20 move 20,20 
30 draw 620,20 
40 draw 310,380 
50 draw 20,20 
run 
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On the screen you will see a triangle. Move the graphics cursor to the centre of the 
screen by typing in: 


move 320,200 


Using the keyword F ILL followed by a pen number, for example 3, we will now 
FILL the screen using the specified pen, from the current graphics cursor position 
(centre screen) to the drawn boundaries. Type in: 


fill 3 

Now move the graphics cursor outside the triangle by typing in: 
move 0,0 

See what happens when you type in: 
fill 2 


The computer has used pen number 2 to F I LL the area bounded by the drawn lines 
and by the edges of the screen. 


Now alter the program by typing in the following lines, and see what happens: 


50 draw 50,590 
60 move 320,200 
70 fill 3 

run 


You will note that any gaps in the drawn boundaries let the ink from the pen ‘seep’ 
through! 


This point is further demonstrated by F I LLing first a plotted circle, then a drawn 
circle. Type in: 


new 

10 CLS 

20 FOR a=1 ТО 360 

30 ORIGIN 520,200 

40 PLOT 190*COS(a),190*SIN(a) 
50 NEXT 

60 MOVE -188,0 

70 FILL 3 

run 
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Nowtry: 


new 

10 MODE 1 

20 ORIGIN 320,200 

30 DEG 

40 MOVE 0,190 

50 FOR 4-0 TO 360 STEP 10 
60 DRAW 190*SIN(d),190*COS(d) 
70 NEXT 

80 MOVE -188,0 

90 FILL 3 

run 


We can make the outline of the circle to be filled invisible, by setting the pen ink to 
the same colour as the paper ink. Add: 


45 GRAPHICS PEN 2:1МК 2,1 
run 


The GRAPHICS PEN command selects the pen to be used for drawing graphics on 
the screen. The INK command then specifies the ink colour for that pen, which in this 
case, is the same as for the paper (i.e. colour number 1). 


Finally, type in this demonstration program: 


new 
10 MODE Q:BORDER 13 

20 MOVE 0,200:08АМ 640,200 
30 FOR х-80 TO 560 STEP 80 
40 MOVE x,0:DRAW х,400 

50 NEXT:MOVE -40,300 

60 FOR с-й TO 7 

70 MOVER 80,0:FILL c 

80 MOVER 0,-200:FILL c*8 
90 MOVER 0,200:МЕХТ 

100 GOTO 100 

run 


The colours of the filled areas can be changed after the fill. Type in: 


100 SPEED INK 30,30 

110 BORDER RND*26,RND*26 

120 INK RND*15,RND*26,RND*26 
130 FOR t=1 TO 500:NEXT:GOTO 110 
run 
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Further details. 


For a more comprehensive guide to graphics on the CPC6128, see the section 
‘Graphically speaking’ in the chapter entitled ‘At yourleisure. 


To conclude this section, here are a few graphics demonstration programs which 
incorporate a lot of the programming commands and keywords that you should now 
understand. Each of the programs draws continuous patterns on the screen. 


new 

10 BORDER Ü:GRAPHICS PEN 1 

20 m=CINTCRND*2):MODE m 

30 i1-RND*26:12-RND*26 

40 IF АВЗ(11-12) 410 THEN 30 

50 INK 0,i1:INK 1,12 

60 s-RND*5*3:0RIGIN 320,-100 

70 FOR x= -1000 TO 0 STEP s 

80 MOVE 0,0:DRAW x,300:DRAW 0,600 
90 MOVE 0,0:DRAW -x,300:DRAW 0,600 
100 NEXT:FOR t-1 TO 2000:МЕХТ:60ТО 20 
run 


10 MODE 1:BORDER Q:PAPER Ø 

20 GRAPHICS PEN 2:INK 0,0:1-14 
30 EVERY 2200 GOSUB 150 

40 flag-0:CLG 

50 INK 2,14*RND*12 

60 bX-RND*5*1 

70 c%=RND*5+1 

80 ORIGIN 320,200 

90 FOR a=0 TO 1000 STEP РІ/ЗӢ 
100 xX-100*cOS(a) 

110 MOVE x%,y% " 

120 DRAW 200*COS(a/bZ),200*SIN(a/cX) 
130 IF flag-1 THEN 40 

140 NEXT 

150 flag=1:RETURN 
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10 MODE 1:BORDER 0:0Е6 

20 PRINT "Please wait" 

30 FOR n=1 TO 3 

40 INK Ø,Ø:INK 1,26:INK 2,6:INK 3,18 

50 IF n=1 THEN sa=120 

60 IF n=2 THEN s 35 

70 IF n=3 THEN за-150 

80 IF n-1 THEN ORIGIN 0,-50,0,640,0,400 ELSE ORIGIN 0,0 
,0,640,0,400 

90 DIM cx(5),cy(5),r(5),LUc(5) 

100 DIM np(5) 

110 DIM px%(5,81) ,py%(5,81) 

120 st=1:¢x(1)=320:cy(1)=200:r(1)=80 

130 FOR st=1 TO 4 

140 r(st+1)=r(st)/2 

150 NEXT st 

160 FOR st=1 TO 5 

170 (cst :np(st)=0 

180 np(st)=np(st)+1 

190 pxX(st,np(st))=r(st)*SIN(Lc(st)) 

200 pyX(st,np(st))=r(st)*COS(Lc(st)) 

210 lc(st)-lc(Cst)*360/r(st) 

220 IF lc(st) < 360 THEN 180 

230 px%(st,np(st)+1)=px%(st,1) 

240 py%(st,np(st)+1)=py%(st,1) 

250 NEXT st 

260 CLS:cj=REMAIN(1):cj=REMAIN(2) 

270 cj=REMAIN(3):INK 1,2:st=1 

280 GOSUB 350 

290 LOCATE 1,1 

300 EVERY 25,1 GOSUB 510 

310 EVERY 15,2 GOSUB 550 

320 EVERY 5,3 GOSUB 590 

330 ERASE cx,cy,r,lc,np,pxZ,pyX:NEXT 

340 GOTO 340 

350 cxX=cx(st):cyX=cy(st):Llc(st)=0 

360 FOR xX=1 ТО np(st) 

370 MOVE cx%,cy% 

380 DRAW cx%+px%(st,x%) ,cyX*pyX(st,xX),1*(st MOD 3) 

390 DRAW cx%+px%(st,x%+1) ,cy%tpy%(st,x%+1),1+(st MOD 3) 

400 NEXT x% 

410 IF st=5 THEN RETURN 

420 1с(51) =0 

830 cx(st+1)=cx(st)+1.5#r(st)*SIN(satlc(st)) 


This program continues on the next page 
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440 cy(st+1)=cy(st)+1.5*r(st)*COS(sa+Lc(st)) 
450 st=st+1 

460 GOSUB 350 

&70 st=st-1 

480 Lc(st)=lc(st)+2*sa 

490 IF (Lc(st) MOD 360)<>0 THEN 430 

500 RETURN 

510 ik(1)=1+RND*25 

520 IF ik(1)=ik(2) OR ik(1)=ik(3) THEN 510 
530 INK 1,ik(1) 

540 RETURN 

550 ik(2)=1+RND*25 

560 IF ik(2)=ik(1) OR ik(2)=ik(3) THEN 550 
570 INK 2,ik(2) 

580 RETURN 

590 ik(3)=1+RND*25 

600 IF ik(3)=ik(1) OR ik(3)=ik(2) THEN 590 
610 INK 3,ik(3) 

620 RETURN 
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Part 9: Using Sound.... 


Sound is generated by a loudspeaker within the computer itself. If you are using an 
MP2 Modulator/Power supply and a domestic television, set the TV's volume control 
toa minimum. 


The level of sound can be adjusted by use of the VOLUME control at the rear of the 
computer. The sound can also be fed to the auxiliary input socket of your stereo 
system, using the socket on the computer marked STEREO. This will enable you to 
listen to the sound generated by the computer in stereo, through your hi-fi 
loudspeakers or headphones. Instructions on connecting to the computer's STEREO 
socket will be found in part 2 of this Foundation course. 


The SOUND Command 


Тһе SOUND command has 7 parts (‘parameters’). The first two of these must be used; 
the rest are optional. The command is typed in ав: 


SOUND «channel status» , «one period, , «duration: , volume: , «volume envelope» , 
tone envelope» , «noise period» 


It looks pretty complicated, but if we analyse each parameter, we can soon get to grips 
with it. Let's look at the parameters one by опе.... 


ChannelStatus 


To keep things simple at the moment, regard the «channel status» as the reference 
number for the sound channel. There are 3 sound channels, and for now we will use 
the «channel status» number 1. 


Tone Period 


«Tone period» is a technical way of defining the pitch of the sound, or in other words, 
‘what note it is’ (i.e. do ге mi Ға so, etc). Each note has a set number, and this number is 
the «tone period». Refer to the chapter entitled ‘For your reference....', and you will see 
that the note middle c (do), has a tone period of 239. 
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Now reset the computer [CONTROL] [SHIFT] [ESC], and type in: 


10 sound 1,239 
run 


You will hear a short note which is middle c lasting 0.2 second. 


If you don't hear anything, make sure that the VOLUME control on the computer is 
not set to zero, then type RUN again. 


Duration 


This parameter sets the length of the sound, in other words, ‘how long it lasts’. The 
parameter works in units of 0.01 (one hundredth) of a second, and if you don't specify 
the «duration», the computer will assume a figure of 20, which is why the note you 
just heard lasted 0.2 second, i.e. 0.01 multiplied by 20. 


To make the note last for 1 second, a «duration» of 100 would be be used; to make it 
last 2 seconds, 200 would be used. Type in: 


18 sound 1,239,200 
run 


You will hear the note middle c lasting 2 seconds. 


Volume 

This parameter specifies the starting volume of a note. The number is in the range 0 
to 15. A «volume» figure of 0 is minimum, while 15 is maximum. If no number is 
used, 12 is assumed. Type in: 


10 sound 1,239,200,5 
run 


Notethe volume ofthis sound. Now type it in using a higher volume number: 


10 sound 1,239,200,15 | 
,run / 


You will hear that this is much louder. 
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Volume Envelope 


To make the volume vary within the duration of the note, you can specify a volume 
envelope using the separate command ENV. You can in fact make a number of 
different volume envelopes, and like the SOUND command, each has its own 
reference number. If you have created a volume envelope with a reference number of 
1, and you wish to use it in a SOUND command, then where the parameter «volume 
envelope, is required, type in 1. Creating a volume envelope will be explained 
shortly. 


Tone Envelope 

To make the tone or pitch vary within the duration of the note, you can specify a tone 
envelope using the separate command ENT. You can in fact make a number of 
different tone envelopes, and like the SOUND command, each has its own reference 
number. If you have created a tone envelope with a reference number of 1, and you 


wish to use it in a SOUND command, then where the parameter «tone envelope» is 
required, type in 1. Creating a tone envelope will be explained shortly. 


Noise 
«Noise is the last parameter ofthe S OUN D command. A range of noise is available by 
varying the «noise parameter between 1 and 31. Add a «noise parameter of 2 at the 


end of the SOUND command and listen to the effect. Then change the «noise 
parameter to 2 7 and listen to the difference. Type in: 


10 sound 1,239,200,15,,,2 
Note the two ‘blank’ parameters (, , ,) before the «noise» parameter of 2. This is 


because we haven't created a .volume envelope» nor a «tone envelope». 


Cxeating a Volume Envelope 


The volume envelope command is ENV. In its simplest form, the command has 4 
parameters: The command is typed in as: 


ENV «envelope number. , number of steps» , «size of step» , «time per step» 


As before, let's look at the parameters one by one. 
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Envelope Number 


This is the reference number (between @ and 15) given to a particular volum 
envelope so that it can be called up in the SOUND command. 


Number of Steps 


This parameter specifies how many different steps of volume you want the sound t, 
pass through before it ends. For example, in a note which lasts 10 seconds, you ma; 
wish to have 10 volume steps of 1 second each. In such a case, the «number of steps 
parameter used should be 10. 


The available range of number of steps: is 0 to 127. 


Size of Step 


Each step can vary in size from a volume level of 0 to 15 with respect to the previou: 
step. The 16 different volume levels are the same as those you will hear in the SOUNI 
command. However, the «size of step. parameter used сап be between - 1 2 8 anc 
+127; the volume level re-cycling to Ø after each 15. 


Time per Step 


This parameter specifies the time between steps in 0.01 second (hundredths of ғ 
second) units. The range of «time per step. numbers is Ø to 25 5, which means that the 
longest time between steps is 2.56 seconds (0 is treated as 2 5 6). 


Note therefore, that the «number of steps» parameter multiplied by the «time per step 
parameter shouldn't be greater than the «duration» parameter in the SOUND 
command, otherwise the sound will finish before all the volume steps have beer 
passed through. 


(In such a case, the remaining contents ofthe volume envelope are discarded.) 
Likewise, if the «duration» parameter in the SOUND command is longer than the 
«number of steps» multiplied by the «time per step», the sound will continue after all oi 


the volume steps have been passed through, and will remain constant at the final 
level. 


Toexperiment with the volume envelope, type in the following program: 
10 env 1,10,1,100 


20 sound 1,142,1000,1,1 
гип 
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Line 20 specifies а SOUND with a tone period of 1 4 2 (international a), lasting for 10 
seconds with a start volume of 1, and using volume envelope number 1, conisting of 
10 steps, raising the volume ofeach step by 1, every 1 second (100 x 0.01 second). 


Change line 10 in each of the following ways and then run to hear the effect of 
changing the envelope: 


10 env 1,100,1,10 
10 env 1,100,2,10 
10 епу 1,100,5,10 
10 епу 1,50,20,20 
10 епу 1,50,2,20 
10 епу 1,50,15,30 


And finally try this: 
10 env 1,50,2,10 


You will notice that half way through the sound, the level remains constant. This is 
because the number of steps was 5 0 and the time between each step was 0.1 second. 
Therefore the length of time during which the volume varied was only 5 seconds, but 
the сагана parameter іп the SOUND command іп line 20 was 1000, і.е. 10 
seconds. 


Try experimenting yourself, to see what type of sounds you can create. 
If you wish to create a more intricate volume envelope, the 3 parameters: «number of 


steps», «size of step» , «time per step» may be repeated at the end of the ENV command 
up to 4 more times, to specify a different ‘section’ of the same envelope. 


Creating a Tone Envelope 


The tone envelope command is ENT. In its simplest form, the command has 4 
parameters: The command is typed in as: 


ENT «envelope number, , number of steps» , «tone period of step» , «time per step» 


Once again, let’s look at the parameters one by one. 


Envelope Number 


This is the reference number (between @ and 15) given toa particular tone envelope 
so that it can be called up in the SOUND command. 
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NumberofSteps 


'This parameter specifies how many different steps of tone (pitch) you want the sound 
to pass through before it ends. For example, in a note which lasts 10 seconds,you may 
wish to have 10 tone steps of 1 second each. In such a case, the «number of steps 
parameter used should be 10. 


The available range of number of steps» is Ø to 239. 


Tone Period of Step 


Each tone step can vary in the range - 128 to + 127 with respect to the previous step. 
Negative steps make the pitch of the note higher; positive steps make the pitch of the 
note lower. The shortest tone period is 0. This must be remembered when 
formulating the tone envelope. The full range of tone periods is shown in the chapter 
entitled ‘For your referenci 


Time perStep 


This parameter specifies the time between steps in 0.01 second (hundredths of a 
second) units. The range of «time per step» numbers is Ø to 255, which means that the 
longest time between steps is 2.56 seconds (B is treated as 2 5 6). 


Note therefore, that the «number of steps» parameter multiplied by the «time per step» 
parameter shouldn't be greater than the «duration parameter in the SOUND 
command, otherwise the sound will finish before all the tone steps have been passed 
through. (In such a case, the remaining contents of the tone envelope are discarded.) 


Likewise, if the «duration» parameter in the SOUND command is longer than the 
«number of steps» multiplied by the «time per step», the sound will continue after all of 
the tone steps have been passed through, and will remain constant at the final tone 
pitch. 


То experiment with the tone envelope, type in the following program: 
10 ent 1,100,2,2 


20 sound 1,142,200,15,,1 
run 


Line 20 specifies a SOUND with a tone period of 142 (international a) lasting for 2 
seconds with a start volume of 15 (max), without a volume envelope (represented by 
ablank parameter , ,) and with tone envelope number 1. 


Line 10 is tone envelope number 1 consisting of 100 steps, increasing the tone 
period (reducing the pitch) by 2, every 0.02 second (2 x 0.01 second). 
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Now change line 10 in each of the following ways, and then RUN to hear the effect of 
changing thetone envelope: 


18 ent 1,100,-2,2 
10 ent 1,10,4,20 
10 ent 1,10,-4,20 


Now replace the sound command and the tone envelope by typing in: 


10 ent 1,2,17,70 

20 sound 1,71,140,15,,1 
30 goto 10 

run 


Press [ESC] twice to break. 


Now you can put the volume envelope, tone envelope, and s ound command together 
tocreate various sounds. Start with: 


10 env 1,100,1,3 

20 ent 1,100,5,3 

30 sound 1,142,300,1,1,1 
run 


Then replace line 20 by typing in: 


20 ent 1,100,-2,3 
run 


Now replace all the lines by typing in: 


10 env 1,100,2,2 

20 ent 1,100,-2,2 

30 sound 1,142,200,1,1,1 
run 


If you wish to create a more intricate tone envelope, the 3 parameters: .number of 
Steps» , «tone period of step» , «time per step» may be repeated at the end of the ENT 
command up to 4 more times, to specify a different ‘section’ of the same envelope. 


‘Try some more variations for yourself. Add some «noise» to the SOUND command, and 
try adding some extra sections to the volume and tone envelopes. 


The chapter entitled ‘Complete list of AMSTRAD CPC6128 BASIC Keywords’ 
contains full details of the various sound commands. If you are interested in the more 
melodius aspects of sound, see the section, ‘The Sound of Music’ which you will find in 
the chapter entitled ‘At your leisure....'. 
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Part 10: Introducing AMSDOS and 
CP/M.... 


What is AMSDOS?.... 


When the computer is switched on or reset, the system defaults to operation under 
‘AMSDOS’. AMSDOS is an abbreviation of AMStrad Disc Operating System, and 
offers the following file handling commands and functions: 


LOAD "filename" 
RUN "filename" 
SAVE "filename" 
CHAIN "filename" 
MERGE "filename" 
CHAIN MERGE "filename" 
OPENIN "filename" 
OPENOUT "filename" 
CLOSEIN 

CLOSEOUT 

CAT 

EOF 

INPUT #9 

LINE -INPUT #9 

LIST #9 

PRINT #9 

WRITE #9 


In addition, AMSDOS provides a number of extra commands for disc management. 
These commands are called external commands, and are preceded with a bar symbol 
1, (You will find the | symbol by holding down [SHIFT] and pressing the @ key.) 


Some of the more common external commands that you will use are: 


la 
Ib 
I t ape (which сап be sub-divided into | tape. i nand | tape.out) 
1 disc (which сап be sub-divided into |disc.inandIdisc.out) 


The commands | a and | b are used on а 2-drive system, to tell the computer which 
drive to direct any subsequent disc command. 
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Typing in for example: 


la 
load "filename" 
... Will tell the computer to load the specified program from a disc placed in Drive A. 


If neither | a nor | b is entered or the computer is reset, the system will default to 
Drive A. 


If you are vsing only the disc drive within the computer, this can be regarded as Drive 
A, and l a or | b commands need not be issued. Entering | b when no additional disc 
drive is connected, will result in the message on the screen: 


Drive B: disc missing 
Retry, Ignore or Cancel 


to which you should respond C (to Cancel). 


What if I want to use cassette? 


The command | tape tells the computer to perform all loading and saving etc., 
commands to an external cassette unit instead of to disc. Unless | tape is entered, 
the computer will always default to disc operation when switched on or reset. 


To return to disc operation after | t ape has been specified, type in: 
Idise 


Alternatively, you may for example wish to load in from cassette and save out to disc. 
You may then use the command: 


Itape.in 
This command tells the computer to read data in from cassette, but continue to write 


data out onto disc (by default). 


Similarly, to read data in from disc and save out onto cassette, you will first need to 
type in: |disc.in to countermand the previously issued | tape. in (above), 
then: | tape. out totellthecomputer to write data out onto cassette. 


It can be seen therefore that |їаре.їп and ltape.out countermand 
Idisc.inandldisc.out respectively, and vice versa. 


Further information on directing data to and from discs (and cassette), will be found 
in the chapters entitled ‘Using Discs and Cassettes’ and 'AMSDOS and CP/M’ 
(Chapters 4 and 5). 
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Program copying between discs, and cassette 


In part 7 of this Foundation course, you learned how to format a new blank disc using 
the DISCKIT3 program on Side 1 of your master CP/M system discs package. You 
also learned how to copy a program from one disc to another. Now, using the 
commands: 

Itape Idisc Itape.in ltape.out Idisc.in Idisc.out la Ib 


...you will be able to perform loading and saving to a disc placed either in Drive A or 
Drive B (if connected), or to a cassette unit (if connected). 


Other external commands: 


Idir Idrive lera Iren luser 


аге dealt with later in this manual, in the chapter entitled ‘AMSDOS and CP/M’ 
(Chapter 5). 


Copying a Whole Disc 


The entire contents of a disc can be copied from one to another using the DISCKIT3 
program on Side 1 ofthe CP/M system discs package. 


You may use this method to make back-up copies of the master system discs 
themselves. 


Insert Side 1 ofthe system disc package into the computer's disc drive, and type: 
Їсрт 

After the A> prompt, type: 
disckit3 


After a few seconds, you will see the DISC KIT opening message at the top of the 
screen, followed by: 


One drive found 
'This message tells you that you are running the DISC KIT utility program, and the 


computer has detected that you are operating only one disc drive (the one within the 
computer). 
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Ifyou have connected an additional disc drive to the system, the message will say: 
Two drives found 


Atthe bottom of the screen, you will see the following: 


copy Ей 


This is known as the main DISC KIT menu. The numbers in boxes refer to the 
function keys at the right hand end of the keyboard (marked #0, #1, (4, and #7), and 
pressing one of these keys takes you to your selected menu choice. 


Note that pressing function key number 0 at this point will exit from the DISC KIT 
program back to CP/M Direct Console Mode (the A> prompt). 


Wenow wantto copy a disc, so press function key number 7 (f7). 


BEWARE 


COPYING ONTO A PREVIOUSLY RECORDED DISC WILL ERASE ITS CONTENTS 


Copying оп a 1-drive system 


Assuming that you are using a 1-drive system (i.e. you have NOT connected an 
additional drive), you will then see the message: 


Copy 
Any other key to exit menu 


At this point, you should remove your master CP/M system disc, and insert the disc 
that you wish to copy from. If you wish to copy the CP/M system disc itself, simply 
leave it in the drive. 
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When the disc that you wish to copy from is in the drive, press the Y key, (Y is for Yes, 
meaning ‘go-ahead and copy the disc’). 


The format of the disc will be examined by the computer, and displayed at the top of 
the screen for your information. 


After a while, you will see the message: 


Insert disc to WRITE 
Press any key to continue 


At this point, you should take the disc that you are copying out of the drive. Then 
insert the disc for copying onto, and press any key. 


Information about the format of the disc to be copied onto (even if it is a new 
unformatted disc) will be indicated at the top of the screen. 


If the disc that you wish to copy onto is not correctly formatted (or not formatted at 
all), this will be taken care of during copying, and you will see a message such as: 


Disc isn't formatted (or faulty) 
Going to format while copying 
Disc will be system format 


„ог some other similar message, depending upon the discs that you are copying 
between. 


When the computer is again ready for the disc to copy from, it will display the 
message: 


Insert disc to READ 
Press any key to continue 


апа you should re-insert the disc to copy from. 


After repeating this process a few times, the contents of the first disc will be copied 
onto the second disc, and the message: 


Copy completed 
Remove disc 
Press any key to continue 


«Will appear, whereupon you should follow the instructions on the screen, which 
give you the option to either copy another disc (by typing Y) or ‘exit’ing to the main 
DISC KIT menu. 
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Write protection 


Note that you will not be able to copy onto a disc which has its write protect hole open. 
Attempting to do so will result in the message: 


Disc write-protected 
Insert disc to WRITE 
R-etry or C-ancel 


whereupon you should type С to Cancel, remove the disc, and insert the correct disc 
for copying onto, with its write protect hole closed. 


Make sure that you don’t close the write protect hole оп a disc that contains programs 
you want to keep, and NEVER close the write protect holes on your master CP/M 
system discs package. 


Copying on a 2-drive system 


Follow the instructions above, loading the DIS CKIT3 program from Side 1, then 
select the Сору option from the main DISC KIT menu by pressing key f7. 


Atthis point, you will receive a further menu: 


Exit menu 


Copying on a 2-drive system means that you do not have to repeatedly insert and 
remove the discs for copying to and from. The above menu allows you to select the 
drive into which you wish to place the disc that you are copying from. Press key f8 to 
copy from the disc in Drive A. 
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А third menu will then be displayed: 


Write to A: 


Write to B: 


Exit menu 


This menu offers a choicé of drive into which you wish to place the disc for copying 
onto. You may, if you wish, select the same drive as that for copying from, but it will 
mean that you will have to repeatedly change discs, and you won't be taking 
advantage of your 2-drive system. 


For greater ease and speed of copying, press кеу 16 to copy onto the disc in Drive B. 
Now place the 2 discs into the appropriate drives, and type Y to commence copying. 


Once again, information about the format of both discs will be displayed on the 
screen, and if the disc to copy onto is not correctly formatted, (or not formatted at all), 
this will betaken care of during copying. 


After copying, the following message will be displayed: 
Copy completed 


Remove both discs 
Press any key to continue 


„апа you must remove BOTH discs before you can perform any further operations. 
You may then repeat the copying process by typing Y, or exit to the main DISC KIT 
menu by pressing any other key. 


Verifying discs 


The D I SCK IT3 program also provides you with the facility to verify (check) a disc. 


Information about the format ofthe disc is displayed, and all files on the disc are read. 
Any errors present in the files are reported on the screen. 


To verify a disc, insert Side 1 of your system discs package, and type: 


Їсрт 
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Atthe A> prompt, type: 
disckit3 
Select the Ver i f y option from the main DISC KIT menu (key f1), and then follow 


the instructions on the screen. 


If you are operating a 2-drive system, you will be given the option to verify a disc 
either in Drive A or Drive B. 


When the disc that you wish to verify is inserted in the drive, type Y to commence 
verifying. 
When verifying is completed, the following message will be displayed: 


Verify completed 
Remove disc 
Press any key to continue 


If you are operating a 2-drive system, you will be requested to remove BOTH discs, 
and you must do so before you can perform any further operations. You may then 
repeat the verifying process by typing Y, or exit to the main DISC KIT menu by 
pressing any other key. 


Using the DISC KIT program on CP/M 2.2 


If you wish to format, copy, or verify discs created on or for the CPC664 or 
CPC464+DDI1 (which both use CP/M 2.2), a DISC KIT program has been provided 
on Side 4 of your system discs package for this purpose. The program is called 
DISCKIT2,andoperatesin the same manner as D I S CK I T3, just described. 


To run DISCKIT2, insert Side 4 of your system discs package into the computer's 
disc drive, and type: 

Icpm 
After you receive the CP/M 2.2 ‘sign-on’ message and the A> prompt, type: 


disckit2 


From then on, simply select the required menu options and follow the instructions 
displayed, as previously described for DISCKIT3. 


NOTE - During copying, the DISCKIT2 program utilises the screen memory for 
data. You will therefore see random patterns appear on the screen while copying is 
being performed. 
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FurtherInformation 


Further information about using the programs provided on your master CP/M 
system discs package will be found in Chapters 4 to 9 ahead. 


Finally, check that you have observed the following warnings given.at the beginning 
of this manual, in the section entitled IMPORTANT’: 


INSTALLATION NOTES 5,6,7 
OPERATION NOTES 1,2,3,4,5,6,7,9 
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Part 11: Introducing the Bank 
Manager.... 


Using the second 64K of memory 


The CPC6128 contains 128K of RAM (Random Access Memory) in two lots of 64K. 
CP/M Plus uses the full 128K all the time, but BASIC does not normally use the 
second 64K - only the available memory in the first 64K. It would be a pity to leave 
the extra 64K completely unused when programming in BASIC, so a program has 
been provided to make special use of this extra memory. The program offers some 
extra commands that make it possible to use the second 64K of RAM as either a 
storage space for screen images, or as a storage space for strings. 


The program providing these extra commands is known as the BANK MANAGER" 
where ‘bank’ is a technical term used to describe a section of memory. 


Using theBANK MANAGER for screen images 


The 6128 is displaying a screen image all the time. To do this, it requires 16K of 
memory in which to store the information about the colour and brightness of every 
pixel (dot) on the screen. The 6128's memory allows up to six screen images (each in a 
16K block) to be present in the computer's memory at any one time. The BANK 
MANAGER provides the facilities for you to juggle and display up to five of the six 
possible screens from BASIC. 


When you first switch on, the screen is displayed from a 16K block of memory (which 
we will call ‘Block 1’) out ofthe first 64K. The other four screens are held in the second 
64K of memory and are called Block 2, Block 3, Block 4, and Block 5. 


Only Block 1 (from the first 64K) can be used to actually display a screen. Therefore, 
to see a screen stored in the second 64K (Blocks 2 to 5), it is necessary to move the 
required screen into Block 1. The BANK MANAGER provides all the commands 
needed to move screens around, such as | S CREENCOPY which simply transfers one 
screen to another, overwriting the contents of the existing screen; and 
ISCREENSWAP which exchanges the contents of two screens. 


Like the AMSDOS commands introduced earlier in this chapter, the BANK 
MANAGER uses “external commands' which start with the bar symbol | (obtained 
by typing [SHIFT]8). 
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How to use the BANK MANAGER 


Reset the computer [CONTROL] [SHIFT] [ESC], then insert Side 1 of your system 
discs package and type: 


RUN "ВАМКМАМ" 


The loading procedure is detailed in Chapter 7 part 13 on RSX’s (Resident System 
eXtensions), and it is advisable to have some understanding about RSX's and also 
about reserving memory space, before using these routines in your programs. 
However, to try the following examples, you will not need to understand the loading 
procedure. 


‘Type: 
MODE 1 


PRINT "THIS IS THE DEFAULT SCREEN" 
ISCREENSWAP,1,2 


The text should have disappeared. You are now looking at what used to be stored as 
Screen 2 (in Block 2). If the machine has just been switched on, this will probably be a 
random pattern. To clear this pattern, type: 


MODE 1 
«then type: 


PRINT "THIS IS SCREEN 2" 
ISCREENSWAP,1,2 


Your original text reappears. If you now repeat the |5СВЕЕМ5МАР,1,2 
command, you can see that the contents of the two screens are being exchanged. You 
can swap the contents of any of the five screens with each other, but bear in mind that 
only when you doa swap involving Screen 1 will the display be altered. 


The other command available is | S CREENCOPY. This allows you to copy one screen 
onto another, overwriting it with a new image. 


Type: 
MODE 1 


PRINT "THIS IS A SCREEN TO COPY" 
ISCREENCOPY,2,1 
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The contents of Screen 1 are copied into Screen 2. If you reverse the parameters by 
typing: 

MODE 1 

ISCREENCOPY,1,2 


.... the contents of the currently displayed screen are overwritten from screen 2. 


So the first parameter is the screen to copy to; the second parameter is the screen to 
copy from. 


When copying screens, note that you will produce a disjointed display if the screens’ 
MOD Es are different, or if the viewing screen has been ‘scrolled’ since the last MODE 
command. The BANK MANAGER’s screen commands are intended for use with 
pictorial screens rather than text screens, as scrolling is less likely to have occurred. 


Using the BANK MANAGER for String Storage 


There are four more commands provided by the BANK MANAGER, which allow the 
use of the additional 64K of memory asa filing system for string variables. 


Most programs can be divided into two parts: firstly, the actual program instructions, 
and secondly, the data that the program uses. A good example of this is a database 
program such as an address book. Such a program would use an array of strings to 
store the names and addresses of the people listed in the book. 


Strings can be stored in the second 64K of memory, one after another, end to end. The 
memory that the strings are stored in can be divided into compartments, which are 
called records. A record can be of any fixed length between 2 and 255 characters, 
whereas the length of a string in BASIC varies according to its contents. The purpose 
of a record is to provide standard sized compartments, like a set of pigeon holes, in 
which to store the untidy string information. Each operation to store or retrieve data 
from a record is automatically followed by a step to the next record, ready for the next 
operation. The record to be used for the next operation is called the ‘current record’ 
and will be used automatically unless a different record is specified. 


We call this system of memory management a 'RAMdisc'. This is because it operates 
ina similar way to random access disc systems, but using RAM instead. 


Read the following descriptions of the various commands so that you understand 
what each command is for, if not how to use it, then go on to try out the examples. 


The first of the RAMdisc commands is | BANKOPEN. This command specifies how 
many characters of string information each record can contain. Its syntax is: 


IBANKOPEN,n 


Where n is a number specifying the amount of characters in the record. The value n 
can be in the range 0 to 255, but values of 0 and 1 will have strange effects. 
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IBANKWRITE stores a string into the current record. The current record is ther 
incremented to point at the record after the one that has just been written, ready for 
the next operation. Its syntax is: 


IBANKWRITE,8rZ,a$ 
OP 
IBANKWRITE,GrZ,a$,n 


... Where r% is an integer variable in which a code is returned giving information 
about the operation. a$ is a string variable containing the characters to be written 
into the record. In the first ofthe two examples, the record is the current record. In the 
second example, the optional parameter n specifies the record to be written to. 


I BANKREAD examines the current record, and returns its contents in a string. The 
current record is then incremented to point at the record after the one that has just 
been read, ready for the next operation. Reading the contents of a record does not 
change it, so the record can be read over and over again. The syntax for | BANKREAD 
is: 


IBANKREAD ‚аг ,a$ 
m 0r.... 
IBANKREAD Gr ,a$ ,n 


Where r% is an integer variable in which a code is returned giving information 
about the operation. a$ is a string variable into which the contents of the record is 
read. In the first of the two examples, the record is the current record. In the second 
example, the optional parameter n specifies which record is to be read from. 


The last command is IBANKFIND. This command searches through. the records 
trying to find a particular string. If the string is found, then the number of the record 
in which it is found, is returned. The syntax for | BANK F IND is: 


IBANKFIND,ar%,a$ 


IBANKFIND,ar%,a$,n 
«ОГ... 


IBANKFIND,GrZ,a$,n,m 
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where r Z is an integer variable in which either the record number (where the 
ring was found) or a code indicating that it was not found, is returned. a$ is the 
string to search for. The optional parameter n, specifies which record to begin 
searching from. If n is unspecified, then the search will start at the current record. 
The second optional parameter m specifies at which record to end the search even ifa 
match is not yet found. If m is omitted, the search continues through the whole 64K, 
which may overrun the end of the data you have written. 

Now try this out. If you have already run the BANK MANAGER program to look at 
the screen swapping commands, and have not reset the computer, then the extra 
commands will currently be resident in memory. If not, you will need to insert Side 1 
of your system discs package, and type: 


RUN "ВАМКМАМ" 
Now type: 
IBANKOPEN, 20 


This sets the record length to 20 characters and sets the current record to be 0. 
Now type: 


aS="FIRST ENTRY"*SPACES$(C9) 
... Which sets up a $ to be exactly 20 characters long. 
Now type: 
reo 
...to initialise r X. 
Now type: 
IBANKWRITE,ar%,aS 
This will write а $ into the first record (record 0). Now type: 


d$=SPACE$(20) 
IBANKREAD,ar%,d$,0 
PRINT d$ 


The first command sets up d $ to contain 20 spaces. This is enough room to contain the 
contents of the record when it is read. The second command reads record number 0 
and places the result in d$. As the current record would now be stepped to record 1 
(by the previous | BANKWRITE operation) it is necessary to specify record 0, as the 
record to read. Remember - if no record number is specified, then the current record is 
read, Finally the result of the reading operation is printed out. Therefore d$ ought to 
contain‘FIRST ENTRY'and9 spaces. 
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Nowtypethis: 


b$="TWO"+SPACE$(17) 
c$="THREE"+SPACE$(15) 
IBANKWRITE,ƏrX,b$,1 
IBANKWRITE,ar%,c$ 


This puts b $ and c $ into records 1 and 2. Again the optional parameter in the first 

I BANKWRITE command is used, allowing record 1 to be specified as the record in 
which to place b$. The current record number is thereafter set to the following 
record, so it is unnecessary to specify in which record to put c $ - it will be placed in 
record 2 automatically. 


Type: 
PRINT r% 


The result of PRINTing rZ after the above example should be 2. This number сап 
either be considered as the last record operated on, or as the current record minus one. 
In the above example the last record operated on was 2 and the next record will be 3. 


The purpose of this “return code' is to provide information about the operation just 
carried out. A successful operation will return a positive number indicating a record 
number; an unsuccessful operation will return a negative number indicating an error 
code. There are two possible errors that can be returned Бу IBANKWRITE and 
I BANKREAD. These are: 


-1 Indicates that the end of the file has been reached. This happens when all the 
records have been used up or a record has been specified that does not exist. 


-3 Indicates a bank switching failure. This should never happen. 
Try some further examples: 


d$-STRINGS$(20,"X") 
ІВАМКОРЕМ,20 
FOR n=1 to 3:1BANKWRITE,8rZ,d$:NEXT 


This will set up d $ to contain 20 X's. | BANKOPEN resets the current record to be 0, 
во Ње IBANKWRITE command will overwrite the contents of records 0, 1, and 2 with 
d$. 


Nowtype: 


a$="FIRST" 
IBANKWRITE,ƏrZ,a$,0 
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This puts the word "FIRST" into record 0, overwriting some of the X's. Now reset 
d$ tospaces by: 


d$-SPACES(20) 
Now type: 
IBANKREAD,GOrZ,d$,0 


This reads back record 0 into d$. 
Torecap the steps taken so far: 


All three records contain X's. Into record 0 has been added the word " FIRST".d$ 
has then been filled with spaces. Finally, record 0 has been read back into d $. Now 
type: 


PRINT d$ 


The result should be "FIRSTXXXXXXXXXXXXXXX". This illustrates an 
important consideration when using these commands. If the string being placed into 
a record does not completely fill that record, the old characters that have not been 
overwritten will remain in the record. Therefore, it is advisable to put a string of 
spaces or C HR $ (32 )’s into the record before storing fresh information in it. This 
avoids reading back a string and finding that it has characters which were not 
intended to still bein it. The same consideration should also be made to the string into 
which the record will be read. If the string is longer than the length of the record, then 
there will be characters left unchanged at the end of the string. That is why d$ was 
cleared (filled with spaces) before reading record 0 into it. 


It is possible to write a string into a record which is too short to accept the complete 
string. Ifthis happens, the excess characters will be ignored. 


Likewise, it is also possible to read the contents of a long record into a short string. 
and once again, excess characters (read from the record) will be ignored. In normal 
string operations, BASIC would automatically extend the string to accept the 
additional characters but this does not happen within an external command. 


Finally the IBANKFIND command. This allows the records to be searched for a 
particular entry. For example, if record number 24 starts with the word "FRED", 
this could be found with the command: 


IBANKFIND,GrZ,"FRED" 


This is extremely useful for database programs where for example, a name, or 
address, is being searched for. 
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IBANKFIND will start at the current record, and will work its way through the 
records until it reaches the searched-for string, or the end of the second 64K in which 
the records are stored. 


It is possible to specify the record number at which to start from, by including a record 
number at the end of the command. 


A further record number, after the starting record number, can be included to specify 
the record at which to end the search. 


| BANKFIND can be used to look for a string which does not lie at the start of a 
record, To do this, CHR$(@)’s are used in the character positions before the 
significant characters to be searched for. The CHR$(@)’s will be treated as 
‘wildcards’ (like ?’s in CP/M filenames) which means that they count as ‘any 
character’. An example of this would be: 


a$=STRING$(10,0)+"FRED" 
IBANKFIND,ƏrX,a$,0 


This would find the first occurrence of the word " F RED" (lying between the eleventh 
and fourteenth character positions). The first ten characters could contain a phone 
number or some other information that | BANK F IND would ignore. 


The number of the record in which the string was found is placed in the integer 


variable r% used for the return code (if the word " F RED" was found), otherwise the 
return code will contain - 2. 


Further details.. 


Further information about the BANK MANAGER will be found in Chapter 8, and 
you should study parts 13 and 14 of Chapter 7 on the subject of using RSX's. 


Finally, check that you have observed the following warnings given at the beginning 
of this manual, in the section entitled IMPORTANT’: 


OPERATION NOTES 1,2,3,9 
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Well, that concludes this 11 part Foundation course on the CPC6128. By now you 
should know what most of the keys on the keyboard do, how to use some of the simpler 
BASIC commands, how to format a brand new disc so that it's ready to use, and how to 
perform some of the most elementary disc functions, ie. LOADing, SAVEing, 
CATaloguing etc, together with a few AMSDOS, CP/M, and BANK MANAGER 
commands. 


The chapters that follow, look at the more specialised aspects of computing and 
AMSTRAD BASIC. There's an in-depth guide to the disc drive section of the unit, 
with sections on AMSDOS and CP/M, and you will be started off on the road to a new 
language- Dr. LOGO from Digital Research. 


Good luck, and happy reading! 
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Chapter 2 
Beyond Foundations.... 


So you've read the Foundation course and you have the computer 
switched on in front of you. You've already learnt how to make it 
carry out an operation several times over using a FOR NEXT 
loop, and how to make it test IF a condition is true THEN do 
something. 


Well, you're soon going to tire of seeing your name printed all over the screen, and 
will want to get on with some serious computing - something useful or entertaining. 
The chapter after this, lists each ofthe AMSTRAD BASIC keywords at your disposal, 
together with a description of the 'syntax', and what the keyword is used for. Armed 
with this list, the scope of what you can then make the computer do is limited only by 
your imagination. 


If you have never used a computer before, the idea of actually ‘programming’ may fill 
you with apprehension. Fear not! It's a lot easier than you think, and certainly a lot 
easier than the technology and jargon would have you believe. Think of BASIC not as 
a new language, but as a variation of English with some words abbreviated to speed 
things up. In other words, don't think of C LS as3 letters of magic code, but instead as, 
CLear Screen. 


Try not to be afraid of BASIC, and you'll soon find yourself enjoying the business of 
programming, as well as the fruits of your endeavours. Programming can be a very 
rewarding exercise, especially when you're a beginner experimenting with the 
machine and the language. Always remember that as long as you make sure that you 
don't accidentally write onto your master CP/M system discs, nothing you type in can 
actually harm the computer, and it's always worth trying something new. 


So where do I start? 


Starting is often the most difficult part of the program for the beginner. However, 
what you should avoid doing, is plunging straight in and hacking away at the 
keyboard without any forethought. 


One of the first things you should establish, is what exactly you want the program to 
do, and how you want the results to be presented to you (in other words, what the 
screen should look like as the program runs). 


Having decided this, you can then start writing a program to fulfil your 
requirements, all the time thinking of how to make the program flow smoothly from 
beginning to end, with the minimum of jumping around using GO TO here and GOTO 
there. A good program will be easy to follow when listed, and will not land you in a 
hopeless muddle when you try to fault find, or ‘de-bug’ as they say in computer talk. 
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Fortunately, BASIC is a very forgiving language and will often help you by 
producing error messages on the sereen when you go wrong. BASIC also allows you to 
have ‘afterthoughts’, and new lines of program can be sandwiched in between the 
existing lines with a minimum of fuss. 


Writing a simple program 


OK let's get going. We'll write a program to keep a record of our friends’ names and 
telephone numbers. We'll call the program "Telephone book'. Now let's apply the 
above rules: “What should the program do? and 'How should the results be 
presented?’ 


Well, the program should let you enter up to say, 100 names and ’phone numbers for 
storage. When you want a number, you should be able to type in the name and get 
back the number. In addition, if you're not sure how one of the names was originally 
entered, you should be able to display a complete list of all the information on the 
screen. Notice by the way, that we're automatically starting to consider the question 
of how the results of the program are to be presented. 


Right, let's put finger to keyboard! We'll start off with the title at the beginning: 
10 REM telephone book 


You don’t have to put a title in a program, but when you start to accumulate quite a 
few programs, it helps to be able to know at a glance which is which. 


Next, we know that we want to be able to INPUT (put in) a string of characters 
(somebody’s name) into a variable; we'll call that variable NAME $. The same applies 
to the telephone number, and we'll call that variable TE $. 


Remember those example programs from the Foundation course? They used the 
INPUT command for you to enter the value of the variable, so if we type in: 


20 INPUT "enter the name";NAMES 
30 INPUT "enter the telephone number";TELS$ 
run 


You could enter the name, for example: Joe. You could then enter the 'phone number, 
for example: 0277 230222 


The program has stored the information, but hasn't produced any printed results on 
the screen. A section of program is therefore needed to retrieve the information, then 
display it. То get the values of NAME $ and T E $ at the moment, we'd use commands 
like: 


PRINT NAMES...and....PRINT TELS 
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But hang on! We said that we want to be able to store up to 100 names and 100 'phone 
numbers in the program. Surely we don't have to write a program with two hundred 
INPUT commands, each with a different variable name, and then two hundred 
PRINT commands to produce a list on the screen??? Don’t worry, computers make 
provision for this with what’s known as an ‘array’. An array allows you to use one 
variable (such as NAME$) which can have any number of ‘dimensions’ (in our 
program, we require 100). Then, when you want to get at the contents of the variable, 
you use the variable’s name followed by its reference number (inside brackets), This 
reference number is called a ‘subscript’ and the expression NAME$(27) for 
example, is called a ‘subscripted variable’. Now if we use a number-variable as the 
subscript, for example NAMES (х ), we can then process the whole list of variables 
from 1 to 100 by changing the value of x ina FOR NEXT loop, i.e. FOR x- 1 TO 100. 
As the value of x increases by 1, so the subscript value changes and refers to a 
different ‘element’ or name in the NAMES array. 


We want two arrays; one for NAMES, and one for T E L$, each with a dimension of 100 
elements. Before we can start using an array, we must declare its D I Mensions at the 
outset. We'll overwrite lines 20 and 30 with these statements: 


20 DIM NAME$(100) 
30 DIM TEL$(100) 


Having established our variables, let's write some program that will firstly enable us 
to enter the names and numbers into the arrays, for later retrieval. Add: 


40 FOR TO 100 

50 INPUT;" name";NAME$(x) 
60 INPUT " phone"; TEL$(x) 
70 NEXT 

run 


This is all very well, but we may not want to enter all 100 names at once. What's 
more, the way that the program presents itself on the screen is most unsatisfactory. 
What's needed here is a bit of tidying up. Firstly, before taking input of each new 
name and number, let's rid the screen of all the previous superfluous text, by 
CLearingthe Screen each time. Add: 


45 CLS 


Now, how do we get the computer to know that we've finished inputting information 
for the moment? Pressing [ESC] would stop the program alright, but as soon as you 
typed RUN again, you'd lose all the values of your carefully entered variables! 
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Here's what we can do instead. As the program takes input of a new name, we'll make 
the program check that at least something has been typed in for the value of 
NAMES (x), in other words, check whether the value of NAMES Сх) is an ‘empty 
string’ or not. I F itis, THEN we'll make the program stop taking any more input. Did 
you get the clue on how we can do this? Add: 


55 IF NAMES(x)="" THEN 80 
80 PRINT "no more input" 


Also, so that the program tells you how to stop inputting, add: 
47 PRINT "Press CRETURN] to end input" 


Now let's write some program to PRINT the information you've stored, firstly in the 
form ofa list. Add: 


90 FOR x-1 TO 100 
100 PRINT МАМЕ$ (х) ;" ";TELSCx) 
110 NEXT 


Once again the program doesn't know when to stop, before reaching the 100th 
element ofthe array, so let's add: 


95 IF МАМЕ5(х)-"" THEN 120 
120 PRINT "List finished" 


Line 95 detects whether NAMES (x) is an empty string, and IF so, THEN stops 
printing by bypassing lines 100 and 110. 


And so to the next of our requirements. We'll now write some program that searches 
foraparticular name that you enter. Add: 


130 INPUT "find";SEARCHS 

140 FOR x-1 TO 100 

150 IF 1М5ТВСМАМЕБ(х) ,5ЕАВСН5)-0 THEN 180 
160 PRINT МАМЕ$(х);" ";TEL$(x) 

170 END 

180 NEXT 

190 PRINT "name not found" 

run 
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There’s a new command in line 150 - INSTR. It tells the computer to I Nterrogate 
the first S T Ring expression to find the first occurence of the second string expression, 
in other words, it searches NAME$ (x) for SEARCH$ (which is the variable you 
input in line 130 containing the name that you're looking for). If INS TR doesn’t find 
it (or any part of it), it gives out a value of 0, which is used here to make the program 
pass to line 180 and try again with the NEXT value of x. If the program has passed 
through all values of х up to 100, it then continues to line 190 and tells you that it 
hasn’t found the name. If however it does find the name, INSTR will not produce a 
value of 0, and the program will then pass from line 150 to 160 and print the name 
and phone number, then END at line 170. 


As you can see, our program is developing quite rapidly now, but there’s still so much 
to be done. Let’s sit back for a moment and consider some drawbacks of this program, 
starting with the way in which the program runs: First you type in the information, 
then you get a list back, then you search for a specific name. 


What if? 


Well, what if you don’t want to do it in that order? What if you want to start by 
searching for a name that you stored in the program yesterday? And what if you want 
to add some more names and numbers to those already there? These are all aspects of 
the program that you have to think about and find solutions for; it’s what 
programming is all about. As previously mentioned, BASIC is kind enough to let you 
sandwich afterthoughts into the program, but a good programmer will have 
anticipated these problems beforehand. 


Another major problem with this program is that the values of the variables in the 
arrays are all stored in a part of the computer’s memory that is cleared whenever you 
RUN a program. You'll not want to have to type in all the information every time you 
use the program, so you'll need the option of being able to save the values of all the 
NAMES and TEL $ variables before you switch off, together with the option to load in 
the values of the variables whenever you run the program. 


Solutions 


The first of these problems (i.e. the order in which things are carried out) can be dealt 
with by writing the program so that when it runs, you get a choice of the various 
functions that it can perform. This type of program is called ‘menu-driven’, and in 
effect displays a menu on the screen from which you can select an option. If you've 
ever used one of those cash dispensers outside the bank, then you'll have already 
operated a menu-driven computer program! Let's add a menu to this program: 
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32 PRINT 
33 PRINT 
34 PRINT 
35 PRINT save info" 

36 PRINT load info" 

37 INPUT "enter menu selection";ms 
38 ON ms GOSUB 40,90,130 


enter info" 
list info" 
search" 


85 RETURN 

125 RETURN 
170 RETURN 
200 RETURN 


As you can see, we've made the program print the menu of options, then take INPUT 
of your selection, putting it into the variable ms. The command ON ms GOSUB in line 
38 tells the program that if ms=1 then GO to the first SUB-routine line number 
(40); if ms =2 then GO to the second S UB-routine line number (90), and so on. 


As each of the functions are now sub-routines called by the ON ms GOSUB command, 
they must each have a RETURN command at the end, hence we have added all those 
RETURN commands above. 


Do you remember what the RETURN command does? It makes BASIC return from 
the sub-routine to the point in the program immediately following the appropriate 
GOSUB command, so in this case it returns to the instruction after line 58 (which 
means that the program will continue at line 40 - the ‘enter info’ point!) We don’t 
want that to happen, so we must add: 


39 GOTO 32 


make the program loop back and display the menu once again. Now RUN the 
program again to see how far we've progressed. 


OK let's have a look at the listing of the program for a moment. (If the program is still 
running, press [ESC] twice.) Type in: 


LIST 
This 18 what you should have so far: 


10 REM telephone book 

20 DIM NAME$(100) 

30 DIM TEL$(100) 

32 PRINT "1. enter info" 
33 PRINT "2. list info" 
34 PRINT "3. search" 

35 PRINT "4. save info" 
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36 PRINT "5. Load info" 
37 INPUT "enter menu selection";ms 
38 ON ms GOSUB 40,90,130 


39 GOTO 32 
40 FOR x=1 TO 100 
&5 CLS 


47 PRINT "press [RETURN] to end input" 
50 INPUT;" name";NAME$(x) 


55 IF NAME$(x) THEN 80 
60 INPUT " phone";TEL$(x) 
70 NEXT 

80 PRINT "no more input" 
85 RETURN 

90 FOR x=1 TO 10 

95 IF NAME$(x)=" THEN 120 


100 PRINT МАМЕ$(х);" ";TEL$(x) 
110 NEXT 

120 PRINT "List finished" 

125 RETURN 

130 INPUT "find";SEARCHS 

140 FOR x-1 TO 100 
150 IF INSTR(NAMESC 


¿SEARCH$)=0 THEN 180 


160 PRINT NAMES(x);" ";TEL$(x) 
170 RETURN 

180 NEXT 

190 PRINT "name not found" 
200 RETURN 


You'll see that in certain parts of the program, we're starting to run out of lines to 
insert instructions, so let's create some more space and tidy things up by 
RENUMbering the lines. Type in: 


RENUM 
LIST 


You should now see: 


10 REM telephone book 

20 DIM NAME$(100) 

30 DIM TELS(C100) 

40 PRINT "1. enter info" 

50 PRINT "2. list info" 

60 PRINT "3. search" 

70 PRINT "4. save info" 

80 PRINT "5. load info" 

90 INPUT "enter menu selection";ms 
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100 ON ms GOSUB 120,210,270 
110 GOTO 40 

120 FOR x=1 TO 100 

130 CLS 

140 PRINT "press [RETURN] to end input" 
150 INPUT;" name"; NAMES (x) 

160 IF NAMES(x)="" THEN 190 
170 INPUT " phone"; ТЕС Сх) 

180 NEXT 

190 PRINT "no more input" 

200 RETURN 

210 FOR x-1 TO 100 

220 IF NAMESOO- HEN 250 
230 PRINT NAMES(x);" ";TELSOO 
240 NEXT 

250 PRINT "List finished" 

260 RETURN 

270 INPUT "find";SEARCHS 

280 FOR x-1 TO 100 

290 IF INSTR(NAMES GO ,SEARCH$) =0 THEN 320 
300 PRINT NAME$(x);" ";TEL$(x) 
310 RETURN 

320 NEXT 

330 PRINT "name not found" 

340 RETURN 


That's better. Now on with the program! We'll now add an instruction, so that 
whenever you enter some new names and 'phone numbers, the computer will add 
them to the existing entries, by placing them in the first element of the array that it 
finds to be empty. This time, we'll use the new command LEN totell us the LENgth of 
thestring. We'll specify the following: 


IF the LENgth of NAMES (x) is greater than 0, i.e. if there's already an entry іп 
that element ofthe array, THEN jump to line 180 (which steps to the NEXT element 
inthearray). 


Notice again how similar the above instruction in English is, compared to the 
equivalent BASIC instruction just below. I told you that BASIC isn't really a 
different language!!! 


135 IF LEN(NAME$(x))>@ THEN 180 


Such a simple solution isn’t it? Problems like these can always be sorted out with your 
list of BASIC keywords and a little thought. There's nearly always at least one 
command that will satisfy your programming needs, and the more you program, the 
more you'll be able to find instant solutions ‘off the top of your head’. 
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Now to the matter of saving the contents of the variables so that they can be loaded 
back in when the program is run. Part 7 of the Foundation course explained how to 
save the program itself, using the SAVE command. However the program itself is 
only a framework which lets the variable values be put in (at the keyboard) and taken 
out (at the screen). When you SAVE the program, you are saving only that 
framework, not the values of the variables. 


Hence we must write a section of program that will save the values of the variables 
onto disc. We do this by creating a separate ‘data file’. 


First we OPEN an OUTput file and specify a name for it such as "data". Then we 
WRITE the values of the variables NAME$ (х) and TE L$ (x) from 1 to 100, into 
the file, and finally we CLOSE the OU Tput file and RETURN tothe menu. Let's add it 
to the program from line 35@ onwards. To save us typing in each new line number, 
we'll use the command: 


AUTO 350 
... Which will start AU T Omatic line numbering from the required line: 


350 OPENOUT "data" 

360 FOR x-1 TO 100 

370 WRITE 49,NAMES GO , TELS OO 
380 NEXT 

390 CLOSEOUT 

400 PRINT "data saved" 

410 RETURN 


After you have typed in line & 10 and pressed [RETURN], press [ESC] to stop the 
AUTOmatic line numbering. 


Now we need to add an extra number to the list of numbers in the ON ms GOSUB 
command in line 100. This is because we have added another option for the menu to 
select. Therefore ED IT line 100 to add this extra number: 


100 ON ms GOSUB 120,210,270,350 


Now, whenever you select menu option number 4, the program will save all the 
information that you entered, onto disc. 


Notice that in line 370, where the program WR I T Es the values of NAME $ (x) and 
TEL$ (x) onto disc, the expression #9 is used after the word WRITE. The # sign isa 
‘stream director’, in other words, it tells the computer which ‘stream’ to send the data 
to. The computer has 10 streams: 


Directing data to streams 0 to 7 (#0 to #7) will result in it appearing on the screen 
because streams #0 to #7 are ‘screen streams’ or W INDOWs. 
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Directing data to stream # 8 sends data to the printer (if connected). 


Finally, directing data to stream #9 sends it to the disc drive, which is what we have 
done in line 370. 


If Imay digress.... 


А few words now about the AUTO command which we used a moment ago. If you 
leave out the line number and just type in: 


AUTO 


.. the computer will commence line numbering from 10, advancing by 10 each time 
[RETURN] is pressed. If you have previously used lines 10, 20, 30 etc, each line's 
contents will be displayed on the screen as you pass through it (by pressing [RETURN] 
each time). When each line appears on the screen, it may be edited before pressing 
[RETURN], thus providing a quick method of continuously editing regularly 
successive program lines. 


Back to the program. 


We've now added the instructions to save the information to disc, so the final main 
section of this program will load the data back from disc, ready for use. Therefore, we 
must add yet another menu option to the list of numbers in line 100. Edit line 100 
again, as follows: 


100 ON ms GOSUB 120,210,270,350,420 


Now for the instructions to load the information. We start by OPE Ning the I Nput file 
from disc called "data". Then we take INPUT from disc (stream #9) of all the 
values of the variables NAME$ (x) and TELS (x) from 1 to 100, and lastly we 
CLOSE the I Nputfileand RETURN tothe menu. Type in: 


420 OPENIN "data" 

430 FOR x=1 TO 100 

440 INPUT #9,NAMES(x),TELS(x) 
450 NEXT 

460 CLOSEIN 

470 PRINT "data loaded" 

480 RETURN 


Chapter 2 Page 10 Beyond Foundations 


The end of the beginning.... 


So now we have written a program which fulfils the requirements that we set out tc 
achieve when we decided ‘what the program has to do’. All that remains now, is tc 
improve the way that ‘the results are presented’ on the screen. 


The beginning of the end.... 
Let’s add some instructions to tidy up the presentation of the program: 
34 MODE 1 


This establishes the screen mode, and clears the screen at the start of the program. 
Now add: 


36 WINDOW 81,13,30,10,14 


Don't be put off by this seemingly complicated instruction. What we're doing here is 
creating a small window on the screen to put the menu into. After the word WINDOW, 
we first specify which stream number this window is for, remember we can use 8 
screen streams from #@ to #7. Now bearing in mind that all items printed on the 
screen use stream #0 unless otherwise instructed, we won't use stream #0 for our 
little window, otherwise everything that the program prints will be sent to it. Instead 
we'll specify another stream between #1 and #7, and as you can see, we've chosen 
#1. The four numbers that follow #1, tell the computer what size the WINDOW 
should be, and it couldn't be easier; the numbers specify the left, right, top, and 
bottom edges of the window, and refer to text column and row numbers (the same as 
those used in the LOCATE command). So in our example, after specifying that it's 
stream # 1 we're using, we say that the left edge of the window starts at column 13, 
the right edge ends at column 30, the top edge starts at row 10, and the bottom edge 
endsatrow 14. 


Now to make all our menu options print in stream (WINDOW) #1, we'll have to edit 
lines 40 to 80 as follows: 


40, PRINT 
50 PRINT 
60 PRINT 
70 PRINT 
80 PRINT 


enter info" 
list info" 
search" 
save info" 
load info" 


Let's now add: 


85 LOCATE 7,25 
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This LOCAT Es where the menu INPUT statement in line 90 will appear, so that it 
looksneater. 


So that the screen is always cleared when the menu is returned to, edit line 110 to: 
110 GOTO 34 

So that the screen is always cleared when one of the menu options is selected, add: 
95 CLS 


Finally, we'll just add the following three lines to make the program pause before 
returning to the menu: 


103 LOCATE 9,25 
105 PRINT "press any key for meni" 
107 IF INKEYS="" THEN 107 


Line 103 tells the computer where to print the message given in line 105. Line 107 
INterrogates the KE Yboard to see what String variable is being input (by a key 
being pressed). I F it detects that an empty string is being input (because no key is 
pressed), THEN the program loops back to the same instruction again and again, 
until INKE Y $ finds that the string is not empty because a key has been pressed. This 
is a useful way of creating a pause in a program, as BASIC will not pass to next line 
until a key is pressed. 


So there it is; the finished program. Or is it? Well, you could make it have the facility 
to amend and delete names and ‘phone numbers, to sort the list into alphabetical 
order, to ‘print-out’ the list on a printer, or if you're really ambitious, to make the 
program produce the signals to automatically dial the number after you've typed in 
the name - with of course, the permission of British Telecom to connect your ’phone to 
the computer! Nevertheless all these enhancements to the program are possible, and 
in truth you can go on forever improving and streamlining a program, especially 
when you've got a computer system as powerful as the 6128. No, we've got to draw the 
line somewhere, and this is where we'll leave our ‘telephone book’, hopefully having 
learned a thing or two about the art of writing a program from scratch. Tidy up the 
program by typing in: 


RENUM 


„and then save it to disc, or throw it away. You never know though, it might come in 
handy for keeping a record of your friends’ names and telephone numbers! 
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Finallisting: 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 


REM telephone book 
DIM NAME$(100) 

DIM TEL$(100) 

MODE 1 

WINDOW 41,13,30,10,14 


PRINT /1,"1. enter info" 
PRINT #1,"2. list info" 
PRINT #1,"3. search" 
PRINT /1,"4. save info" 

PRINT /1,"5. load info" 

LOCATE 7,25 

INPUT "enter menu selection";ms 
cLs 

ON ms GOSUB 190,290,350,430,500 
LOCATE 9,25 

PRINT “press any key for menu" 
IF ІМКЕҮ5-"" THEN 170 

GOTO 40 

FOR x=1 TO 100 

CLS 

IF LENCNAMES(x))>@ THEN 260 
PRINT "press CRETURN] to end input" 
INPUT;" пате" ; МАМЕ$ Сх) 

IF МАМЕ$ (х) " THEN 270 

INPUT " phone";TEL$(x) 

NEXT 

PRINT "no more input" 

RETURN 

FOR x=1 TO 100 

IF МАМЕ$ (х) ="" THEN 330 

PRINT NAMES(x);" ";TELSOO 

NEXT 

PRINT "List finished" 

RETURN 

INPUT "find";SEARCHS 

FOR x-1 TO 100 

IF INSTRCNAMES(x),SEARCHS)=@ THEN 400 
PRINT NAMES(x);" ";TEL$(x) 
RETURN 

NEXT 

PRINT "name not found" 

RETURN 

OPENOUT "data" 
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440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
run 


FOR x-1 TO 100 

WRITE #9,NAMES(x),TELS(x) 
NEXT 

CLOSEOUT 

PRINT "data saved" 
RETURN 

OPENIN "data" 

FOR x=1 TO 100 

INPUT #9,NAMES(x),TELS(x) 
NEXT 

CLOSEIN 

PRINT "data loaded" 
RETURN 
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Chapter 3 Complete list of 
Amstrad CPC6128 BASIC keywords 


IMPORTANT 


It is vital that you understand the terminology and notation that 
we use in this chapter. You will see various types of brackets used 
when explaining how a particular command is typed in; each of 
these types of brackets has a specific meaning, and you should 
note them well. 


Any part of a command not shown enclosed by brackets is required as given. For 
example, the command END takes the form: 


END 


...and you must type in the word END literally. 
Where an item is enclosed in angled brackets « for example: 


dine number» 


...you are NOT required to type the brackets, пог the words within them. The 
example above shows you the type of data required in the command. For example: 


EDIT dine number» 


means that you should type in: 


EDIT 100 
Round brackets С) MUST be typed in literally. For example: 
COS (numeric expression» ) 


«requires that brackets be typed around the «numeric expression» of which the 
COSineisrequired, e.g: 


PRINT COS(45) 
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Finally, square brackets enclose optional items in a command or function. For 
example: 


RUN [dine number} 
...means that you do not have to follow the keyword RUN with a parameter, but that 
you can expand the command by adding the optional parameter dine number». 
Hence, the command could be typed in as: 


RUN ..or.. RUN 100 


Special Characters 

&or&H Prefix for hexadecimal constant 
&X Prefix for binary constant 

# Prefix for stream director 


Datatypes 


Strings may be from 0 to 255 characters long. A «string expression is an expression 
which yields a value of type string. Strings may be appended to one another using the 
+ operator, as long as the resulting string is no greater than 255 characters long. 


Numeric data can be either integer or real. Integer data is held іп the range —32768 
to 32767 and real data is held to a little over nine digits of precision in the range 
+1,7E+38 with the smallest value above zero approximately 2.9E—39. 


A «numeric expression: is any expression that results in a numeric value. It may 
simply be numbers, or it may be a numeric variable, or it may be numbers operated on 
by variables; just about anything that is not a «string expression». 


A «stream expression: refers to a «numeric expression» which identifies a screen 
window, printer, or disc, where the text is required to ‘stream’. 


A dist of:<item> describes a parameter which comprises a list of items separated by 
commas. The list may contain one, or any number of items, limited by line length. 


Type markers are: 

% Integer 

Ч Real (The default) 
$ String 
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Please note that AMSTRAD CPC6128 BASIC keywords are listed here using the 
form: > 


KEYWORD 
Syntax 
Example 
Description 


Associated keywords 


Keywords are either: 


COMMANDS : operations that are executed directly. 
FUNCTIONS : operations that are brought into action as arguments 

іп an expression. 
OPERATORS : acting upon mathematical arguments. 
BASIC converts all keywords entered in lower case letters to UPPER CASE when a 
program is LIS Ted. The examples shown in this chapter use UPPER CASE, since 
this is how the program will appear when LIS Ted. Hence you should enter using 
lower case, as you will be able to spot typing errors more readily since the mis-typed 
keyword will still be displayed in lower case when L I S Ted. 


For a comprehensive guide to AMSTRAD CPC6128 BASIC, see the Concise BASIC 
specification SOFT 967. 


Keywords.... 


ABS 
ABS («numeric expression: ) 


PRINT ABS(-67.98) 
67.98 


FUNCTION: Returns the ABSolute value of the given expression. This means that 
negative numbers are returned as positive. 


Associated keywords: SGN 
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AFTER 
AFTER «timer delay.[ , timer number»] GO SUB Jine number: 


10 AFTER 250 GOSUB 60:15 

20 PRINT "Guess a Letter in 5 seconds" 
30 а$=1МКЕҮ$:1Р flag-1 THEN END 

40 IF a$<>CHRSCINT(RND*26+97)) THEN 30 
50 PRINT a$;" is correct. You win" 

55 SOUND 1,478:SOUND 1,358:END 

60 PRINT "too late. I win" 

70 SOUND 1,2000:flag=1:RETURN 


COMMAND: Calls a BASIC sub-routine after a given period oftime has elapsed. The 
«timer delay» parameter specifies the period of time in units of 0.02 (fiftieths) second. 


The «timer number (in the range 0 to 3) specifies which ofthe four delay timers are to 
be used. Timer 3 has the highest priority; timer 0 (the default timer) has the lowest. 


Each of the timers may have a sub-routine associated with it 


Further information concerning interrupts will be found in part 2 of the chapter 
entitled ‘At your leisure....’. 


Associated keywords: EVERY, REMAIN, RETURN 
AND 


«argument» AND «argument 


IF an"«"bob" AND "dog"»"cat" THEN PRINT "correct" ELSE PRINT "wrong" 
correct 

IF "bob"«"alan" AND "cat"»"dog" THEN PRINT "correct" ELSE PRINT "wrong" 
wrong 


"bob" AND "ca 


"dog" THEN PRINT "correct" ELSE PRINT "wrong" 


PRINT ТАМО 1 
1 
PRINTØANDØ 
[] 


PRINT 1ANDO 
° 


OPERATOR: Performs bit-wise boolean operation on integers. Result is 0 unless 
both argument bits are 1. 


Further information concerning logic will be found in part 2 of the chapter entitled 
‘At your leisure....’. 


Associated keywords: OR, NOT, XOR 
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ASC 
ASC (.string expression») 


PRINT ASC(C"x") 
120 


FUNCTION: Returns the numeric value of the first character in the «string 
expression». 


Associated keywords: CHR $ 


ATN 


АТМ (numeric expression ) 


PRINT ATN(1) 
0.785398163 
FUNCTION: Calculates the Arc- TaNgent of the numeric expression». 
Note that DEG and RAD can be used to force the result of the above calculation to 
degrees or radians respectively. 


Associated keywords: COS, DEG, RAD, SIN, TAN 


AUTO 
AUTO [Jine number 1, increment] 
AUTO 100,50 


COMMAND: Generates line numbers AUT Omatically. The optional dine number 
parameter sets the first line to be generated in case you wish to generate lines from a 
particular point in the program. If the parameter is omitted, line numbers will be 
generated from line 10 onwards. 


The optional increment: sets the number of lines to leave before generating the 
following line number. If the parameter is omitted, the line numbers will increase by 
10 each time. 

Ifaline number is generated which is already in use, then the contents ofthe line will 
be displayed on the screen and may be edited if required. The displayed line will be 
replaced іп the memory when [RETURN] is pressed. 


Tostop automatic line numbering, press [ESC]. 


Associated keywords: none 
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BIN$ 


BIN$ (unsigned integer expression,[ , integer expression»]) 


PRINT BIN$(64,8) 
01000000 


FUNCTION: Produces a string of BINary digits representing the value of the 
«unsigned integer expression», using the number of binary digits instructed by the 
second «integer expression: (in the range 0 to 16). If the number of digits instructed is 
too great, the resulting expression will be filled with leading zeros; if the number of 
digits instructed is too small, the resulting expression will NOT be shortened to the 
instructed number of digits, but will be produced in as many digits as are required. 


The «unsigned integer expression: to be converted into binary form must yield a value 
intherange —32768 to 65535. 


Associated keywords: DEC$, HEX$, STR$ 


BORDER 


BORDER «соїошь [ ‚ «colour;] 


10 REM 729 border combinations! 
20 SPEED INK 5,5 

TO 26 

40 FOR b=0 TO 26 

50 BORDER a,b:CLS:LOCATE 14,13 
60 PRINT "border";a;",";b 

70 FOR t-1 TO 500 

80 NEXT t,b,a 


COMMAND: Changes the colour of the border on the screen. If two colours are 
specified, the border alternates between the two at a rate determined in the SPEED 
INK command. The range of border colours is 0 to 26. 


Associated keywords: SPEED INK 


BREAK 


(See ON BREAK CONT, ON BREAK GOSUB, ON BREAK STOP) 
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CALL 
CALL «address ехргеѕѕіот[ , list of::parameter] 
CALL Ø 


COMMAND: Allows an externally developed sub-routine to be called from BASIC. 
The above call completely resets the computer. 


Not a command to be used by the unwary. 


Associated keywords: UNT 


CAT 
CAT 

CAT 
COMMAND: CATalogs the disc. Displays in alpha-numeric order, the full names of 
all files found, together with each file’s length (to the nearest higher Kbyte). The free 
space left on the disc is also displayed, together with Drive and User identification. 


Cataloguing does not affect the program currently іп memory. 


Associated keywords: LOAD, RUN, SAVE 


CHAIN 
CHAIN «Шепаше»| , line number expression] 

CHAIN "testprog.bas",350 
COMMAND: Loads a program from disc into the memory, replacing the existing 
program. The new program then commences running, either from the beginning, or 
from a line specified in the optional «line number expression». 


Protected files, (S AVEdby „р ) can be loaded and run by CHA I Ning. 
Associated keywords: CHAIN MERGE, LOAD, MERGE 
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CHAIN MERGE 


CHAIN MERGE -filename:[, line number expression] 
Г, DELETE Jine number range») 


CHAIN MERGE "newrun.bas",750,DELETE 400-680 


COMMAND: Loads a program from disc, merges it into the current program in the 
memory, then commences running the resultant program, either from the beginning, 
or from a line specified in the optional line number expression». If before a program is 
CHAIN MERGEd, it is required to delete part of the original program, the DELETE 
dine number range» option may be used. 


Note that line numbers in the old program which exist in the new program to be 
CHAIN MERGEd,will beover-written by the new program lines. 


Protected files, (S AVEd by , p)can NOT be loaded and гап Бу CHAIN MERGEing. 
Associated keywords: CHAIN, DELETE, LOAD, MERGE 


CHR$ 
CHR$ (integer expression: ) 


10 FOR x=32 TO 255 
20 PRINT x;CHR$OO, 
30 NEXT 

run 


FUNCTION: Converts an integer expression» in the range 0 to 255, to its C HaRacter 
String equivalent, using the AMSTRAD character set shown in part 3 of the chapter 
entitled ‘For your reference....’. 


Note that 0 to 31 are control characters; hence the above example prints CHR$ (x) 
in the range 32 to 255. 


Associated keywords: AS С 
CINT 


CINT ( mumeric expression: ) 


10 n=1.9999 

20 PRINT CINT(n) 
run 

2 


FUNCTION: Returns the value of the «numeric expression», Converting it to a 
rounded I NTeger in the range —32768 to 32767. 


Associated keywords: CREAL, FIX, INT, ROUND, UNT 
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CLEAR 
CLEAR 
CLEAR 


COMMAND: Clears all variables to zero or null. All open files are abandoned, all 
arrays and user functions are erased, and BASIC is set to radians mode of calculation, 


Associated keywords: none 


CLEAR INPUT 
CLEAR INPUT 


10 CLS 

20 PRINT "Type in letters now!" 
30 FOR t=1 TO 3000 

40 NEXT 

50 CLEAR INPUT 

run 


COMMAND: Discards all previously typed input from the keyboard, still in the 
keyboard buffer. 


To see the effect of this command, RUN the above program and type in letters when 
asked to do so, Then delete line 50 of the program and RUN again, noting the 
difference. 


Associated keywords: INKEY, INKEY$, JOY 


CLG 
CLG [ink] 


LOCATE 1,20 
CLG 3 


COMMAND: C Lears the Graphics screen to the graphics paper colour. If the ink; is 
specified, the graphics paper is set to that value. 


Associated keywords: CLS,GRAPHICS PAPER,INK,ORIGIN 
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CLOSEIN 
CLOSEIN 
CLOSEIN 
COMMAND: C L0SEsany INput file from disc. (See ОРЕМІМ). 
Associated keywords: EOF, OPENIN 


CLOSEOUT 
CLOSEOUT 
CLOSEOUT 
COMMAND: € LOS Es any OUTput file to disc. (See 0PEN0UT). 
Associated keywords: 0 PENOUT 


CLS 
CLS[#-stream expression] 


10 PAPER#2,3 
20 CLS#2 
run 


COMMAND: C Lears the given Screen stream (window) to its paper ink. Ifno «stream 
expression» is given, screen stream # Ü ig cleared. 


Associated keywords: CLG, INK, PAPER, WINDOW 


CONT 
CONT 
CONT 


COMMAND: CONTinues program execution, either after the [ESC] key has been 
pressed twice, or after a STOP command has been encountered in the program. 
CONT will only continue to execute the program if it has not been altered, and if it is 
not a protected program. 


Direct commands may be entered before CON Tinuing. 


Associated keywords: STOP 
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COPYCHR$ 
COPYCHR$ ( #<stream expression» ) 


10 CLS 

20 PRINT "top corner" 
30 LOCATE 1,1 

40 a$=COPYCHR$(#0) 

50 LOCATE 1,20 

60 PRINT a$ 

run 


FUNCTION: C0Pies a CHaRacter from the current position in the stream (which 
MUST be specified). The above program copies a character from location 1,1 (top left), 
and reproduces it at location 1,20. 


Ifthe character read is not recognised, a null string is returned. 
Associated keywords: LOCATE 


COS 
COS (numeric expression: ) 


DEG 
PRINT COS(45) 
0.707106781 


FUNCTION: Calculates the C 0 Sine of the numeric expression». 


Note that DEG and RAD can be used to force the result of the above calculation to 
degrees or radians respectively. 


Associated keywords: АТМ, DEG, RAD, SIN 


CREAL 
CREAL (numeric expression» ) 


10 a=PI 

20 PRINT CINT(a) 
30 PRINT CREAL(a) 
run 


3 

3.14159265 
FUNCTION: Returns the value of the numeric expression», Converting it to REAL. 
Associated keywords: CINT 
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CURSOR 
CURSOR [system switch>][ , user switch>] 


10 CURSOR 1 

20 PRINT "question 
30 aS=INKEYS:IF a$ 
4@ PRINT a$ 

50 CURSOR 0 

run 


COMMAND: Sets the system switch or the user switch to the cursor, on or off. The 
«system switch: and «user switch: parameters must be either 0 (off) or 1 (on). In the 
above INK E Y $ command, where the cursor is not normally visible, the cursor has 
been turned on by the «system switch; setting of 1 (in line 10). 


The cursor is displayed whenever both the «system switch: and the «user switch: are 
on (1). The «system switch» is automatically turned on for the command INPUT, but 
is turned off for INKE Y $. 


It isrecommended that the cursor be turned off when printing text to the screen. 


Either switch parameter may be omitted, but not both. If a switch parameter is 
omitted, that particular switch state is not changed. 


Associated keywords: LOCATE 


" THEN 30 


DATA 
DATA <list of:«constant» 


10 FOR x=1 TO 4 

20 READ name$,surname$ 

30 PRINT name$;" "; ѕигпате$ 

40 NEXT 

50 DATA Hilda,Ogden,Bet,Lynch 

60 DATA Rita,Fairclough,Mavis,Riley 


COMMAND: Declares constant data for use within a program. Data may be read into 
the variable by the READ command, after which the ‘pointer’ moves on to the next 
item in the DATA list. The RES TORE command may be used to move the pointer to a 
specified DATA position. 


Further information concerning data will be found in part 2 of the chapter entitled 
‘At your leisure....’. 


Associated keywords: READ, RESTORE 
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DEC$ 
DEC $ ( numeric expression, , format template» ) 


PRINT DEC$(1017,"£ff##HHHBBBHB HH") 
£10,000,000.00 


FUNCTION: Returns a DE Cimal string representation of the numeric expression», 
using the specified «format template» to control the print format of the resulting 
string. 


The format template may contain ONLY the characters: 
+-£$*w# ,. 1 


TThe use of these “format field specifiers' is described under the keyword PRINT 
USING. 


Associated keywords: BIN$,HEX$,PRINT USING,STR$ 


DEFFN 
DEF FN-function name>| («formal parameters») ]7 «expression» 


10 t=TIME/300 

20 DEF FNclock-INT(TIME/300-t) 
30 EVERY 100 GOSUB 50 

40 GOTO 40 

50 PRINT "program was run"; 
60 PRINT FNclock;"seconds ago" 
70 RETURN 

run 


COMMAND: DEFines a FuNction. BASIC allows the program to define and use 
simple value returning functions. DEF ЕМ is the definition part of this mechanism 
and creates a program-specific function which works within the program in the same 
way that for example COS operates as a built-in function of BASIC. 


(Note in the above example how the value of the function FNc Lock is continually 
updated even if the program is paused by pressing [ESC] once, or stopped by pressing 
[ESC] twice, then CONTinuing.) 


Associated keywords: none 
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DEFINT 


DEFINT distof:letterrange: 

10 DEFINT n 

20 number=123.456 

30 PRINT number 

run 

323 

COMMAND: Sets the D E Fault for a variable to type INTeger. When a variable is 
encountered without an explicit type marker (! % $), the default type is assumed. 
This command sets the default for variables with the specified first letter(s) to type 
IN Teger. There may be a list of first letters such as: 

DEFINT a,b,c 
„ог there may Ве an inclusive range of first letters such as: 

DEFINT а-2 


Associated keywords: DE FREAL, DEFSTR 


DEFREAL 
DEFREAL list of::letter range 

DEFREAL x,a-f 
COMMAND: Sets the DEFault for a variable to type REAL. When a variable is 
encountered without an explicit type marker (! % $), the default type is assumed. 
This command sets the default for variables with the specified first letter(s) to type 
REAL. There may bea list of first letters such as: 

DEFREAL a,b,c 
...or there may be an inclusive range of first letters such as: 


DEFREAL а-2 


Associated keywords: DEFINT, DEFSTR 
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DEFSTR 

DEFSTR «list of: letter range 
10 DEFSTR n 
20 name-"Amstrad" 
30 PRINT name 


run 
Amstrad 


COMMAND: Sets the DEFault for a variable to type S TRing. When a variable is 
encountered without an explicit type marker (! % $), the default type is assumed. 
This command sets the default for variables with the specified first letter(s) to type 
STRing. There may bea list of first letters such as: 

DEFSTR a,b,c 
...or there may be an inclusive range of first letters such ав: 

DEFSTR a-z 


Associated keywords: DEF INT, DEFREAL 


DEG 
DEG 

DEG 
COMMAND: Sets DEGrees mode of calculation. The default condition for the 
functions SIN, COS, TAN, and ATN is radians. DEG resets BASIC to degrees until 
instructed otherwise by the commands RAD, and NEW, CLEAR, LOAD, RUN etc. 


Associated keywords: АТМ, COS, RAD, SIN, TAN 
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DELETE 
DELETE line number range» 
DELETE 100-200 


COMMAND: Deletes part of the current program as defined in the dine number 
range expression. 


The first or last number in the Ліпе number range; may be omitted to indicate 
*....from the beginning of the program’, or “....to the end of the program’, i.e: 


DELETE -200 
р aen 


DELETE 50- 


DELETE 
...Which deletes the whole program. 
Associated keywords: CHAIN MERGE.RENUM 


DERR 
DERR 
LOAD "xyz.abc" 


XYZ .ABC not found 
Ready 

PRINT DERR 

146 


FUNCTION: Reports the last error code returned by the disc filing system. The value 
of DERR may be used to ascertain the particular Disc Е К Ror that occurred. See the 


listing of error messages given in the chapter entitled ‘For your reference....’. 


Associated keywords: ERL,ERR,ERROR,ON ERROR GOTO,RESUME 
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DI 
DI 


10 CLS:TAG:EVERY 10 GOSUB 90 

20 X1=RND*320:X2=RND*320 

30 Y=200+RND*200:C$=CHR$(RND*255) 

40 FOR X=320-X1 TO 320+X2 STEP 4 

50 DI 

60 MOVE 320,0,1:MOVE X-2,Y:MOVE X,Y 
70 PRINT " ";C$;:FRAME 

80 EI:NEXT:GOTO 20 

90 MOVE 320,0:DRAW X+8,Y-16,0:RETURN 
run 


COMMAND: Disables Interrupts (other than the [ESC] interrupt) until re-enabled 
explicitly by E I or implicitly by the RETURN at the end ofan interrupt sub-routine. 


Note that entering an interrupt sub-routine automatically disables interrupts of an 
equal or lower priority. 


The command is used to make the program literally execute without interruption 
- for example when two routines within a program are competing for use of resources. 
In the example above, the main program and the interrupt sub-routine are competing 
for use of the graphics display. 


Further information concerning interrupts will be found in part 2 of the chapter 
entitled ‘At your leisure. 


Associated keywords: AF TER, EI, EVERY, REMAIN 
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DIM 


` DIM.listof:.subscripted variable» 


10 CLS 

20 DIM friend$(5),phone$(5) 

30 FOR n=1 TO 5 

40 PRINT "Friend number";n 

50 INPUT "Enter name";friend$(n) 
60 INPUT "Enter tel.number";phone$(n) 
70 PRINT 

80 NEXT 

90 FOR n=1 TO 5 

100 PRINT n;friend$(n),phone$(n) 
110 NEXT 

run 


COMMAND: р І Mensions ап array. D IM allocates space for arrays and specifies 
maximum subscript values. BASIC must be advised of the space to be reserved for an 
array, or it will default to 10. 


An array is identified by a «subscripted variable» where one variable name is used 
with a range of subscript numbers, so that each ‘element’ of the array has its own 
individual value. Control of the array can then be achieved by for example FOR 
NEXT loops, which can step through the array, processing each element in turn. 


Note that the lowest value of the subscript is zero (i.e. the first available element in 
the array). 


Arrays can be multi-dimensional, and each element of such an array is referenced by 
its position within the framework ofthe array. For example, in an array dimensioned 


by: 
DIM position$(20,20,20) 

...an element of the array would be referenced for example: 
position$(4,5,6) 


Associated keywords: ERASE 
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DRAW 


DRAW <xco-ordinate> ‚ «y co-ordinate>[ ,[<ink>]| , ink шоде»1) 


10 MODE Ü:BORDER Й:РАРЕВ 0:1МК 0,0 
20 x=RND*640:y=RND*400:z=RND*15 

30 DRAW x,y,z 

40 GOTO 20 

run 


COMMAND: Draws a line on the graphics screen, from the current graphics cursor 
position to the absolute position specified in the x,y co-ordinates. The <ink> in which to 
draw the line may be specified (in the range 0 to 15). 


The optional «ink mode» determines how the ink being written interacts with that 
already on the graphics screen. The 4 ink modes are: 


0:Normal 

1: ХОК (eXclusive OR) 
2: AND 

3:0R 


Associated keywords: DRAWR, GRAPHICS PEN,MASK 


DRAWR 
DRAWR x offset , y offset , ['inko][ , ink mode,]] 


10 CLS:PRINT "coming upstairs?" 
20 MOVE 0,350:FOR n-1 TO 8 

30 DRAWR 50,0 

40 DRAWR 0,-50 

50 NEXT:MOVE 348,0:FILL 3 

60 GOTO 60 

run 


COMMAND: Draws a line on the graphics screen, from the current graphics cursor 
position to the relative position specified in the «x and y offsets. The «іпіс in which to 
draw the line may be specified (in the range 0 to 15). 
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The optional «ink mode» determines how the ink being written interacts with that 
already on the graphics screen. The 4 ink mode»s are: 


0: Normal 

OR (eXclusive OR) 
ND 

3:0R 


Associated keywords: DRAW, GRAPHICS PEN, MASK 


EDIT 
EDIT linenumber: 
EDIT 20 


COMMAND: Displays the program line specified in the line number on the screen 
together with the cursor, ready for editing. 


Associated keywords: AUTO, LIST 


EI 
EI 
EI 
COMMAND: Enables Interrupts which have been disabled by the D I command. 
If interrupts are disabled in an interrupt sub-routine, they are automatically 


re-enabled when BASIC encounters the RETURN command at the end of the 
sub-routine. 


Further information concerning interrupts will be found in part 2 of the chapter 
entitled ‘At your leisure....'. 


Associated keywords: AFTER, DI, EVERY, REMAIN 


ELSE 


(See IF) 
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COMMAND: Ends the execution of a program, and returns to direct mode. Any 
number of END commands may appear in a program, and one is automatically 
assumed after the final line ofa program. 


Associated keywords: S TOP. 


ENT 


ENT «envelope number;[ , envelope section»][ , envelope section] 
[, envelope section» ][ , envelope section:] 
[, envelope section] 


10 ENT 1,10,-50,10,10,50,10 

20 SOUND 1,500,200,10,,1 

run 
COMMAND: Sets the Tone ENvelope specified in the «envelope number, (in the 
range 1 to 15), which is used in conjunction with the SOUND command. If the 
«envelope number» is negative (in the range -1 to -15), the envelope repeats until the 
end of the duration of the SOUND command. 
Each of the «envelope sections may contain either 2 or 3 parameters: 
If3 parameters are used, these are: 


«number of steps» , «step size» , pause time» 


Parameter 1: number of steps» 

This parameter specifies how many different steps of tone (pitch) you want the sound 
to pass through during the envelope section. For example, in a section of a note which 
lasts 10 seconds, you may wish to have 10 tone steps of 1 second each. In such a case, 
the number of steps» parameter used should be 10. 


The available range of number of steps» is 0 to 239. 
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Parameter 2: «step size» 


This parameter must be in the range —128 to + 127. Negative steps make the pitch of 
the note higher; positive steps make the pitch of the note lower. The shortest tone 
period is 0. The full range of tone periods is shown in the chapter entitled ‘For your 
reference....’. 


Parameter 3: «pause time» 


This parameter specifies the time between steps in 0.01 second (hundredths of a 
second) units. The range of «pause time» numbers is 0 to 255 (where 0 is treated as 
256), which means that the longest time between steps is 2.56 seconds. 


If2 parameters are used, these are: 
«tone period» , «pause time» 


Parameter 1: «опе period» 


This parameter gives a new absolute setting for the tone period. (See Parameter 2 of 
the SOUND command.) 


Parameter 2: ‹рацѕе time, 
This parameter specifies the pausing time in 0.01 second (hundredths of a second) 


units. The range of «pause time» numbers is 0 to 255 (where 0 is treated as 256), or 
2.56 seconds. 


General 

Note that the total length of all the pause times should not be greater than the 
«duration» parameter in the SOUND command, otherwise the sound will finish before 
all the tone steps have been passed through. (In such a case, the remaining contents of 
the tone envelope are discarded.) 

Likewise, if the «duration: parameter in the SOUND command is longer than the 
total length of all the «pause times, the sound will continue after all of the tone steps 
have been passed through, and will remain constant at the final tone pitch. 

Up to 5 different «envelope section»s, (each made up of the above 2 or 3 parameters) 
may be used in an ENT command. 

The first step ofa tone envelope is executed immediately. 

Each time a given tone envelope is set, its previous value is lost. 

Specifying an «envelope number: with no «envelope sections cancels any previous 
setting. 


Further information concerning sound will be found in part 2 of the chapter entitled 


‘At your leisure....’. 


Associated keywords: ENV, SOUND 
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ENV 


ENV «envelope number{ , «envelope section: |[ , envelope section>] 
[, envelope section: ]| , envelope section»] 
[, «envelope section] 


10 ENV 1,15,-1,10,15,1,10 


20 SOUND 1,200,300,15,1 
run 


COMMAND: Sets the Volume ENvelope specified in the «envelope number (in the 
range 1 to 15), which is used in conjunction with the SOUND command. 


Each ofthe «envelope sections may contain either 2 or 3 parameters: 
If3 parameters are used, these are: 


«number of steps» , «step sizer , pause time» 


Parameter 1: number of steps» 


This parameter specifies how many different steps of volume you want the sound to 
pass through during the envelope section. For example, in a section of a note which 
lasts 10 seconds, you may wish to have 10 volume steps of 1 second each. In such a 
case, the «number of steps» parameter used should be 10. 


Theavailable range of number of steps» is 0 to 127. 


Parameter 2: «step 8126» 


Each step can vary in size from a volume level of 0 to 15 with respect to the previous 
step. The 16 different volume levels are the same as those you will hear in the SOUND 
command. However, the «step size: parameter used can be between —128 and +127; 
the volume level re-cycling to 0 after each 15. 


Parameter 3: ‹раџѕе time 


This parameter specifies the time between steps in 0.01 second (hundredths of a 
second) units. The range of :pause time; numbers is 0 to 255 (where 0 is treated as 
256), which means that the longest time between steps is 2.56 seconds. 
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If2 parameters are used, these are: 


hardware envelope» , «envelope period» 


Parameter 1: «hardware envelope» 


This parameter specifies the value to send to the envelope shape register of the 
sound chip. 


Parameter 2: «envelope period» 


This parameter specifies the value to send to the envelope period registers of the 
soundchip. 


Knowledge of hardware is assumed when using hardware envelopes. Unless you 
have such knowledge, it is suggested that you use a software envelope incorporating 
asuitable pause біте» parameter. 


General 
Note that the total length of all the «pause times should not be greater than the 
«duration» parameter in the SOUND command, otherwise the sound will finish before 


all the volume steps have been passed through. (In such a case, the remaining 
contents ofthe volume envelope are discarded.) 


Likewise, if the «duration: parameter in the SOUND command is longer than the 
total length of all the «pause times, the sound will continue after all of the volume 
Steps have been passed through, and will remain constant at the final level. 


Up to 5 different «envelope sections, (each made up of the above 2 or 3 parameters) 
may be used in an ENV command. 


The first step ofa volume envelope is executed immediately. 
Each time a given volume envelope is set, its previous value is lost. 


Specifying an «envelope number, with no «envelope sections cancels any previous 
setting. 


Further information concerning sound will be found in part 2 of the chapter entitled 
'At your leisure...’ 


Associated keywords: ENT, SOUND 
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EOF 
EOF 


10 OPENIN "keys.wp" 
20 WHILE NOT EOF 

30 LINE INPUT #9,a$ 
40 PRINT a$ 

50 WEND 

60 CLOSEIN 

run 


FUNCTION: Tests to see if the disc input is at End Of File. Returns -1 (true) ifno file 
is open or file is at the end, otherwise returns 0 (false). 


Associated keywords: OPENIN, CLOSEIN 


ERASE 
ERASE «list of::-variable name: 


DIM a(100),b$(100) 
ERASE a,b$ 


COMMAND: Erases the contents of an array no longer required, reclaiming the 
memory for other use. 


Associated keywords: DIM 


ERL 
ERL 


10 ON ERROR GOTO 30 

20 GOTO 1000 

30 PRINT "error is in line";ERL 
40 END 

run 


FUNCTION: Reports the Line number of the last ERror encountered. In the above 
example you will see that the error is in line 2@, and has been reported so by the ERL 
function. 


Associated keywords: DERR, ERR, ERROR, ОМ ERROR GOTO,RESUME 
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ERR 


GOTO 500 
Line does not exist 
Ready 
PRINT ERR 
8 


FUNCTION: Reports the number of the last ER Ror encountered. See the listing of 
error messages given in the chapter entitled ‘For your reference....’. In the above 
example you will see that ER Ror number 8 isa‘Line does not exist’error. 


Associated keywords: DERR, ERL, ERROR, ON. ERROR GOTO,RESUME 


ERROR 


ERROR integer expression» 


10 IF INKEY$-"" THEN 10 ELSE ERROR 17 
run 


COMMAND: Invokes the error specified in the «integer expression». A listing of error 
messages 1 to 32 is given in the chapter entitled ‘For your reference....'. BASIC will 
treat the ERROR as if it had been detected as genuine, and will jump to any error 
handling routine, as well as reporting the appropriate values of ERR and ERL. 


ERROR accompanied by an «integer expression» in the range 33 to 255 can be used to 
create customised error messages, as shown in the following example: 


10 ON ERROR GOTO 100 

20 INPUT "enter one character";a$ 
30 IF LEN(a$)«»1 THEN ERROR 100 

40 GOTO 20 

100 IF ERR-100 THEN 110 ELSE 130 
110 PRINT CHR$(7) 

120 PRINT "I said ONE character!" 
130 RESUME 20 

run 


Associated keywords: ERL,ERR,ON ERROR GOTO,RESUME 
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EVERY 
EVERY «time period. , timernumber;] GO SUB «line number” 

10 EVERY 50,1 GOSUB 30 

20 GOTO 20 

30 SOUND 1,20 

40 RETURN 

run 
COMMAND: Calls a BASIC sub-routine at regular intervals. The «time period, 
specifies the interval in units of 0.02 (fiftieths) second. 
The «timer number» (in the range 0 to 3) specifies which of the four delay timers are to 
be used. Timer 3 has the highest priority; timer 0 (the default timer) has the lowest. 
Each of the timers may have a sub-routine associated with it. 
Further information concerning interrupts will be found in part 2 of the chapter 
entitled ‘At your leisure....’. 
Associated keywords: AFTER, REMAIN 


EXP 
EXP (numeric expression: ) 
PRINT EXP(6.876) 
968.743625 
FUNCTION: Calculates ‘E’ to the power given in the «numeric expression», where ‘E’ 
is approximately 2.7182818 - the number whose natural logarithm is 1. 
Associated keywords: LOG 


FILL 
FILL «ink» 


10 MODE 0 

20 FOR n=1 TO 500 

30 PRINT "0"; 

40 NEXT 

50 pencolourz2*RND*13 
60 FILL pencolour 

70 GOTO 50 

run 


COMMAND: Fills an arbitrary area of the graphics screen. The edges of the area are 
bounded by lines drawn either in the current graphics pen ink or in the ink being used 
to fill (in the range 0 to 15). 
The fill starts from the current graphics cursor position, If this position lies on an 
edge, nothing will be filled. 


Associated keywords: GRAPHICS PEN 
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FIX 
F IX Catumeric expression.) 


PRINT FIX(9.99999) 
9 


FUNCTION: Removes the part of «numeric expression» to the right of the decimal 
point, rounding towards zero. 


Associated keywords: CINT, INT, ROUND 


FN 
(See DEF FN) 


FOR 
FOR «simple variable =-start» TO «end» |5 ТЕР -ніге») 


10 FOR n=2 TO 8 STEP 2 

20 PRINT n; 

30 NEXT n 

40 PRINT ",ыһо do we appreciate?” 
run 


COMMAND: Carries out the body of program between the FOR and NEXT 
commands, a given number of times, stepping the control variable between a «start» 
and «end» value. If the S T E P «size» is not specified, 1 is assumed. 


The STEP «size» may be specified as a negative «numeric expression, іп which case 
the value of the «start» parameter must be greater than that of the «end» parameter, 
otherwise the control variable will not be stepped. 


FOR NEXT loops may be ‘nested’, i.e. one may be carried out within another, within 
another, and so on. 


Assigning the variable's name to the NEXT command is optional as BASIC will 
automatically find which FOR command is to be associated with an ‘anonymous’ 
NEXT. 


Associated keywords: NEXT, STEP, TO 
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FRAME 


FRAME 


10 MODE 0 

20 PRINT "FRAME off" 

30 TAG 

40 MOVE 0,200 

50 FOR x=0 TO 500 STEP 4 
60 IF f=1 THEN FRAME 

70 MOVE х,200 

80 PRINT " " СНК5(143), 
90 NEXT 

100 IF f-1 THEN RUN 
110 CLS 

120 TAGOFF 

130 PRINT "FRAME on" 
140 f-1 

150 coro 30 

run 


COMMAND: Synchronises the writing of graphics on the screen, with the frame 
flyback of the display. The overall effect of this is that character or graphics 
movement on the screen will appear to be smoother, without ‘flickering’ or ‘tearing’. 


Associated keywords: TAG, TAGOFF 


FRE 


FRE (numeric expression: ) 
FRE («string expression: ) 


PRINT FRE(Ø) 
PRINT FRE("") 


FUNCTION: Establishes how much F REe memory remains unused by BASIC. The 
form FRE ("") forces a ‘garbage collection’ before returning a value for available 
space. 

NOTE - BASIC uses only the first 64K ofthe memory. 


Associated keywords: H IMEM, MEMORY 
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GOSUB 
GOSUB Jine number: 

GOSUB 210 
COMMAND: 60ев to a BASIC SUB-routine by branching to the specified .line 
number». The end of the sub-routine itself is marked by the command RETURN, 
whereupon the program continues execution from the instruction after the invoked 
GOSUB command. 


Associated keywords: RETURN 


GOTO 


GOTO line number 
GOTO 90 
COMMAND: GOes ТО aspecified line number. 


Associated keywords: none 


GRAPHICS PAPER 
GRAPHICS PAPER «ink 


10 MODE 0 

20 MASK 15 

30 GRAPHICS PAPER 3 
40 DRAW 640,0 

run 


COMMAND: Sets the 4пК» of the graphics paper, i.e. the area behind graphics drawn 
on the screen. When drawing continuous lines, the graphics paper will not be seen. In 
the above example, the MASK command enables a broken line to be drawn, and the 
graphics paper to be seen. 


‘The graphics paper’s ink (in the range 0 to 15) is used for the ‘paper’ area of characters 
written when TAG is in operation, and as the default when clearing the graphics 
window, using CLG. 


Associated keywords: CLG, GRAPHICS PEN, INK, MASK, TAG, TAGOFF 
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GRAPHICS PEN 
GRAPHICS PEN [+nk,J[, background mode:] 


10 MODE @ 

20 GRAPHICS PEN 15 
30 MOVE 200,0 

40 DRAW 200,400 
50 MOVE 639,0 

60 FILL 15 

run 


COMMAND: Sets the «ink», (in the range 0 to 15) to be used for drawing lines and 
plotting points. The graphics «background mode: can also be set to either: 


0: Opaque background 
1: Transparent background 


(Transparent background affects the graphics paper of characters written with TAG 
on, and the gaps in dotted lines.) 


Either parameter may be omitted, but not both. If a parameter is omitted, that 
particular setting is not changed. 


Associated keywords: GRAPHICS PAPER, INK, MASK, TAG, TAGOFF 


HEX$ 
HEX$ (unsigned integer expression>| , field width» ]) 


PRINT HEX$(255,4) 
(1144 


FUNCTION: Produces a $tring of HE Xadecimal digits representing the value of the 
cunsigned integer expression», using the number of hexadecimal digits instructed by 
the «field width, (in the range 0 to 16). If the number of digits instructed is too great, 
the resulting expression will be filled with leading zeros; if the number of digits 
instructed is too small, the resulting expression will NOT be shortened to the 
instructed number of digits, but will be produced in as many digits as are required. 


The «unsigned integer expression» to be converted into hexadecimal form must yield 
avalue in the range —32768 to 65535. 


Associated keywords: BINS, DEC$, STR$, UNT 
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HIMEM 
HIMEM 


PRINT HIMEM 
&2619 


FUNCTION: Returns the address of the H Ighest byte of MEMory used by BASIC, 
(which may be altered by the MEMORY command). 


NOTE - BASIC uses only the first 64K ofthe memory. 
Associated keywords: FRE,MEMORY,SYMBOL,SYMBOL AFTER 


IF 
IF logical expression» THEN <option part» [E L S E «option part] 


10 MODE 1 

20 x=CINTCRND* 100) 

30 PRINT "Guess my number (0 to 100)" 
40 INPUT n 

50 IF .n<x THEN PRINT n;"is too low. 
60 IF n»x THEN PRINT n;"is too high 
70 IF n=x THEN 80 ELSE c-c*1:GOTO 40 
80 PRINT "Well done, you got it in"; 
90 PRINT c*1;"guesses!" 

run 


COMMAND: Determines whether the «logical expression» is true, in which case the 
first «option part» is executed. If the «logical expression» is false, any «option part, 
specified in the ELSE clause is executed, otherwise BASIC passes onto the next line. 


IF THEN commands may be nested to any depth, and are terminated by end of line. 
Therefore it is NOT possible to have further statements which are independent of the 
IF THENcommand, on the same line. 


Where the result of the -logical expression» requires that a line should be jumped to, 
the command may be given as either: 


Examples.... 
IF a=1 THEN 100 
Жонн 
IF a=1 GOTO 100 
ог. 
IF a=1 THEN GOTO 100 
Associated keywords: ELSE, GOTO, THEN 
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INK 
INK nk, «colour-[ , colour») 


10 MODE 1:PAPER Й:РЕМ 1 

20 FOR p=0 TO 1 

30 FOR i=0 TO 26 

40 INK p,i 

50 LOCATE 16,12:PRINT "ink";p;",";i 
60 FOR t-1 TO 400:МЕХТ t,i,p 

70 INK 0,1:1МК 1,24:CLS 

run 


COMMAND: Assigns colour(s) to a given ink. The «ink» parameter describes the ink 
reference, which must be an integer expression in the range 0 to 15, for use in the 
appertaining PEN or PAPER command. The first «colour. parameter should be an 
integer expression yielding a colour value in the range 0 to 26. If an optional second 
«colour» is specified, the ink alternates between the two colours, at a rate determined 
bytheSPEED INKcommand. 


Associated keywords: GRAPHICS PAPER, GRAPHICS PEN, PAPER, PEN, 
SPEED INK 


INKEY 
INKEY (integer expression: ) 


10 IF INKEY(55)<>32 THEN 10 

20 PRINT "You've pressed [SHIFT] and V" 
30 CLEAR INPUT 

run 


FUNCTION: INterrogates the KE Yboard to report which keys are being pressed. 
The keyboard is scanned every 0.02 (fiftieth) second. 


The function is useful for spotting whether a certain key is down or up, by detecting 
the returned value of — 1 (which occurs regardless of [SHIFT] and [CONTROL] key 
status). 


The above example detects when [SHIFT] and V (key number 55) are pressed together, 
then ends the program. An illustration of key numbers will be found in the diagram 
at the top right hand side of the computer, and in the chapter entitled ‘For your 
reference....'. 
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The state of [SHIFT] and [CONTROL] in conjunction with the key specified in the 
«integer expression» is identified as follows: 


Value returned [SHIFT] [CONTROL] specified key 
-1 UP/DOWN | UP/DOWN UP 

0 UP UP DOWN 

32 DOWN UP DOWN 

128 UP DOWN DOWN 

160 DOWN DOWN DOWN 


Associated keywords: CLEAR INPUT, INKEYS$, JOY 


INKEY$ 
INKEYS 


10 CLS 
20 PRINT "Select Yes or No (Y/N)?" 
30 a$=INKEY$ 


80 PRINT "You have selected YES":END 
90 PRINT "You have selected NO" 


FUNCTION: INterrogates the K E Yboard, returning the current $tring reflecting 
any key that is pressed. If no key is pressed, INKE Y $ returns an empty string. In the 
above example, lines 40 and 70 tell the program to loop back to line 30 after 
interrogating the keyboard string. 


Associatedkeywords: CLEAR INPUT,INKEY 


INP 
INP (.portnumber,) 


PRINT INP(&FF77) 
255 


FUNCTION: Returns the INPut value from the I/O address specified in the «port 
number. 


Associated keywords: OUT, WAIT 
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INPUT 


INPUTI[# stream expression» , ][ ; [quoted string»«separator.] 
dist of:variable- 


10 MODE 1 

20 INPUT "Give me two numbers for multiplication, 
(separated by a comma)";a,b 

30 PRINT a;"times";b;"is";a*b 

40 GOTO 20 

run 


COMMAND: Accepts data input from the stated stream, (from stream #0 if not 
specified). 


The first, optional semicolon [; ] suppresses the carriage return/line feed that will 
otherwise occur after the command is executed. 


The «separator» must either be a semicolon or comma. A semicolon causes a question 
mark to be displayed; a comma suppresses the question mark. 


Ifan entry is made that is of the wrong type such as if the letter о is typed instead ofa 
Ø (zero) when INPU Tinga numeric variable, then BASIC will respond with: 


?Redo from start 
...and any original prompt text that you programmed. 
All responses from the keyboard must be terminated by pressing the [RETURN] key. 


Associated keywords: LINE INPUT 
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INSTR 


INSTR([:start position» , searched string» , searched for string» ) 


10 CLS 

20 alphabet$="ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
30 INPUT "Enter a letter";a$ 

40 b$-UPPERS(aS) 

50 PRINT b$;" is number"; 

60 PRINT INSTR(alphabet$,b$); 

70 PRINT "in the alphabet.":PRINT 

80 GOTO 40 


FUNCTION: Searches the first «searched string» expression to find the «searched for 
string» expression, and reports the position of its first occurrence within the «searched 
string». If the «searched for string» does not occur within the «searched string», then Ø 
isreported. 


The position at which to start searching the «searched string» is optionally specifiable 
using the «start position: parameter which must yield an integer number in the range 
1 to 255. 


Associated keywords: none 


INT 


INT (numeric expression» ) 


PRINT INT(-1.995) 
-2 


FUNCTION: Rounds the number to the nearest smaller INTeger, removing any 
fractional part. Returns the same value as F I X for positive numbers, but returns one 
less than F I X for negative numbers which are not already integers. 


Associated keywords: C INT, F IX, ROUND 
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JOY 


JOY (integer expression») 


10 PRINT "To stop the program - "; 
20 PRINT “operate joystick" 

30 IF ЈОҮ(0) <>0 THEN END 

40 GOTO 10 

run 


FUNCTION: Reads a bit-significant result from the JOYstick specified in the 
«integer expression» (either Ø or 1). : 
Bit Decimal 


0: Up 1 
1: Down 2 
2: Left 4 
3:Right 8 
4: Fire 2 16 
5:Firel 92 


Hence for example, if the main ‘fire’ button (Fire 2) on the first joystick is pressed 
while the joystick handle is being ‘moved left, the function JOY(@) returns a 
decimal value of 20, corresponding to 16 (Fire 2) + 4 (Left). 


Further information concerning joysticks will be found in the chapter entitled ‘For 
your reference....'. 


Associated keywords: CLEAR INPUT, INKEY 


KEY 
KEY «expansion token number , string expression» 


KEY 11,"border 13:рарег Й:реп 1:ink 0,13: 
ink 1,@:mode 2:list"+CHR$(13) 


„пох press the [ENTER] key. 


COMMAND: Assigns the «string expression» to the key's «expansion token number» 
specified. Thirty-two expansion tokens are supported, in the range 0 to 31, these 
occupying the key values 128 to 159. Keys 128 (0 on numeric keypad) to 140 
([CONTROL] [ENTER]) are by default assigned to print numbers 0 to 9, a decimal 
point, [RETURN] and RUN"[RETURN] - (for cassette operation) but may be 
re-assigned to other «string expressions as required. Expansion tokens 13 to 31 (key 
values 141 to 159) are empty strings by default, but may be be expanded and assigned 
tokeys, usingthe KEY DEF command described in the next example. 
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The «expansion token number» given in the KE Y command may be in the range 0 to 
31, or optionally 128 to 159 to reflect the key values. (See the key illustration.in the 
chapter entitled ‘For your reference....’.) 


A total of 120 characters may be expanded into the «string expression»s. Attempting 
to over-expand will produce an‘Improper argument’ error (5). 


Associated keywords: KEY DEF 


KEY DEF 
KEY DEF «key number , repeat , normal , .shifted,[ , .control,1l] 


KEY 159,"this is the tab key" 
KEY DEF 68,1,159 


„пом press the [TAB] key. 


COMMAND: DE Fines the KEY values to be returned by the specified «key number» 
intherange 0 to 79 (for an illustration of key numbers, refer to the diagram at the top 
right hand side ofthe computer, or to the chapter entitled ‘For your reference....’). The 
«normal, «shifted», and «control» parameters should contain the values required to be 
returned when the key is pressed, alone, together with [SHIFT], and together with 
[CONTROL], respectively. Each ofthese parameters is optional. 


The «repeat» parameter enables you to set the key auto-repeat function on or off (1 or 
0), the rate of auto-repeat being adjustable by useofthe SPEED KEY command. 


In the above example, key 159 (equivalent to expansion token 31) is first assigned to 
an expansion string, then the KEY DEF command defines key 68 (the [TAB] key) 
to auto-repeat (1), and to return the «normal value 159 when pressed alone. 
In the above example, normal action would be restored by: 

KEY DEF 68,0,9 
«where 9 is the normal ASCII value for [TAB] 


Associated keywords: KEY, SPEED KEY 
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LEFT$ 
LEFT $ (string expression» , required length: ) 


10 cLS 

20 a$="AMSTRAD" 

30 FOR n=1 TO 7 

40 PRINT LEFT$(a$,n) 
50 NEXT 

run 


FUNCTION: Returns the number of characters (in the range 0 to 255) specified in the 
required length» parameter, after extracting them from the LEFT of the «string 
expression». If the «string expression: is shorter than the «required length», the whole 
«string expression» is returned. 


Associated keywords: MID$,R IGHTS 


LEN 
LEN («string expression: ) 


10 LINE INPUT "Enter a phrase";a$ 
20 PRINT "The phrase is"; 

30 PRINT LEN(a$);"characters Long." 
run 


FUNCTION: Returns the total number of characters (i.e. the LENgth) of the «string 
expression». 


Associated keywords: none 


LET 
LET «variable = «expression: 
LET х=100 


COMMAND: Assigns a value to a variable. A remnant from early BASICs where 
variable assignments had to be ‘seen coming’. Has no use in AMSTRAD BASIC apart 
from providing compatibility with the programs supplied in early BASIC training 
manuals. The above example need only be typed in: 


x=100 


Associated keywords: none 
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LINEINPUT 


LINE INPUT[#:stream expression, , J[ ; [quoted string» separator’) 
«string variable, 


10 LINE INPUT "Type a line of text";a$ 
20 CLS 

30 PRINT "The variable a$ now equals:- 
40 PRINT a$ 

run 


COMMAND: Accepts input of an entire line of text from the stream indicated, (from 
stream #0 if not specified). The first, optional semicolon [ ; | suppresses the carriage 
return/line feed that will otherwise occur after the command is executed. 


The «separator» must either be a semicolon or comma. A semicolon causes a question 
mark to be displayed; a comma suppresses the question mark. 


LINE INPUT from the keyboard 18 terminated by pressing the [RETURN] key. 
LINE INPUT from disc (or cassette) stream #9 is terminated by a received 
carriage return, or by the «string variable» being assigned 255 characters, whichever 
is the sooner. 


Associated keywords: INPUT 


LIST 
LIST [dine number range>][ , # «stream expression» | 

LIST 100-1000,81 
COMMAND: Lists program lines to the given stream. Stream #@ is the default 
screen stream, and #8 is the printer. LIS Ting may be paused by pressing [ESC] 
once, and re-started by pressing the space bar. Pressing [ESC] twice will abandon the 
listing and return to direct mode. 


The first or last number in the Jine number range may be omitted to indicate 
<... тот the beginning of the program’, or *....tothe end of the program’, i. 


LIST -200 
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Эр. т 
LIST 50- 
Жон 
LIST 
Which lists the whole program. 


Associated keywords: none 


LOAD 
LOAD «filename! , «address expression} 
LOAD "discfile.xyz",&2AF8 


COMMAND: Loads a BASIC program from disc into memory, replacing any existing 
program. Specifying the optional «address expression» will cause a binary file to be 
loaded at that address, rather than the address from which it was saved. 


A Protected BASIC program can NOT be loaded using the LOAD command ав it will 
be immediately deleted from memory. Instead, use the RUN or CHAIN commands. 


Associated keywords: CHAIN, CHAIN MERGE, MERGE, RUN, SAVE 


LOCATE 
LOCAT E[# stream expression» , ]‹х co-ordinate» , «y co-ordinate» 


10 MODE 1 

20 FOR n=1 TO 20 

30 LOCATE n,n 

40 PRINT CHR$(143);"Location"; 
50 PRINT n;","; 
60 NEXT 

run 


COMMAND: Locates the text cursor at the stream indicated, to the position specified 
by the x and y co-ordinates, with 1,1 being the top left corner of the stream (window). 
Stream #0 is the default stream. 


Associated keywords: WINDOW 
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LOG 


LOG ( numeric expression: ) 


PRINT LOG(9999) 
9.21024037 


FUNCTION: Calculates the natural LOGarithm of the «numeric expression; which 
must be greater than zero. 


Associated keywords: EXP, 10610 


LOG10 


10610 ( numeric expression: ) 


PRINT 10610(9999) 
3.99995657 


FUNCTION: Calculates the LOGarithm to base 10 of the numeric expression; 
which must be greater than zero. 


Associated keywords: EXP, LOG 


LOWER$ 


LOWERS (string expression» ) 


10 a$-"SEE HOW THE LETTERS CHANGE TO " 
20 PRINT LOWERS$(a$*"LOWER CASE") 
run 


FUNCTION: Returns a new string expression which is a copy of the specified «string 
expression» but in which all alphabetic characters in the range A to Z are converted to 
lower case. The function is useful for processing input which may come in mixed 
upper/lower case. 


Associated keywords: UPPERS 
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MASK 


MASK [integer expression» ][ , first point setting] 


10 MODE 0:1МК 5,21:1НК 8,16 
20 MOVE -100*RND,400*RND 

30 WHILE ХРО5<640 

40 FOR x=1 TO 8 

50 MASK 27 (8-x) 

60 DRAWR 32,0,x,1:MOVER -32,0 
70 NEXT 

80 MOVER 34,0 

90 WEND:GOTO 20 

run 


COMMAND: Sets the ‘mask’ or template to be used when drawing lines. The binary 
value of the «integer expression» in the range 0 to 255, sets the bits in each adjacent 
group of 8 pixels to ON (1), or OFF (0). 


The «first point setting» determines whether the first point of the line is to be plotted 
(1) or not plotted (0). 


Either of the parameters may be omitted, but not both. If a parameter is omitted, that 
particular setting is not changed. 


Associated keywords: DRAW, DRAWR, GRAPHICS PAPER, GRAPHICS PEN 


MAX 
MAX ( dist of::numeric expression: ) 
10 n=66 
20 PRINT MAX(1,n,3,6,4,3) 
run 
66 
FUNCTION: Returns the MA Хіти value from the «list of:: numeric expressions. 


Associated keywords: MIN 
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MEMORY 
MEMORY -address expression: 
MEMORY &20AA 


COMMAND: Allocates the amount of BASIC memory available by setting the 
address ofthe highest byte. 


NOTE - BASIC uses only the first 64K ofthe memory. 
Associated keywords: FRE, HIMEM, SYMBOL, SYMBOL AFTER 


MERGE 
MERGE filename: 
MERGE "newload.bas" 


COMMAND: Loads a program from disc, and adds it to the current program in the 
memory. 


Note that line numbers in the old program which exist in the new program to be 
MERGEd, will beover-written by the new program lines. 


Protected files, (S AV Ed by , p) сап NOT be ME RG Ed into the current program. 
Associated keywords: CHAIN, CHAIN MERGE, LOAD 


MID$ 
MID$ (.string expression , «start position»[ , sub-string length:]) 


10 MODE 1:20NE 3 

20 a$-"ENCYCLOPAEDIA" 

30 PRINT "Show me how to spell ";a$ 
40 PRINT "ОК. 
50 FOR n=1 TO 
60 PRINT МІр5(а5,п,1), 

FOR t=1 TO 700:МЕХТ t,n 


90 INPUT "Now enter another word";a$ 
100 GOTO 50 
run 
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FUNCTION: Returns a new sub-string, commencing at the «start position: of the 
«string expression», being <sub-string length» characters long. If the «sub-string 
length: parameter is not specified, the remainder of the «string expression: after the 
«start positiom is returned. 


If the «start position» is greater than the total length of the «string expression», then 
an empty string is returned. The range of «start position: is 1 to 255. The range of 
«sub-string length: is 0 to 255. 


Associated keywords: LEFT$, RIGHTS 


MID$ 


MIDS (string variable , insertion position,[ , new string length]? 
= пем string expression: 

10 a$-"hello" 

20 М108Са5,3,2)-"ХХ" 

30 PRINT a$ 

run 

heXXo 
COMMAND: Inserts the «new string expression: into the string specified by the 
«string variable, commencing at the «insert position», and occupying «new string 
length» number of characters. 


Note that when using I D$ asa COMMAND, a «string variable» such as a $ must be 
used, and NOT a string constant such as "hel Lo". 


Associated keywords: LEFT$, RIGHTS 


MIN 
MIN (list of: numeric expression: ) 


PRINT МІМ(3,6,2.999,8,9,) 
2.999 


FUNCTION: Returns the M I Nimum value from the -list of: «numeric expressions. 


Associated keywords: MAX 
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MOD 


«argument: MOD «argument» 


PRINT 10 MOD 3 
1 
PRINT 10 MOD 5 
2 


OPERATOR: Returns the remainder after dividing the first «argument; by the 
second «argument» and removing any integer component - МО шив. 


Associated keywords: none 


MODE 


MODE «integer expression: 


10 m-m*1:1F m>2 THEN m-Q 

20 MODE m 

30 PRINT "this is mode";m 

40 PRINT "now press a key" 

50 IF INKEYS-"" THEN 50 ELSE 10 


COMMAND: Changes the screen mode (0,1 or 2), and clears the screen to ink 0 (which 
may not be the current paper ink). All text and graphics windows are reset to the 
whole screen, and text and graphics cursors are homed to their respective origins. 


Associated keywords: ORIGIN, WINDOW 
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MOVE 
MOVE ‹х со-огйїпа&е› , «y co-ordinate>{ , [-ink:][ , ink mode] 


10 MODE 1:TAG 

20 x-RND*800-10U:y-RND*430 
30 MOVE x,y 

40 PRINT "I moved here"; 
50 GOTO 20 

run 


COMMAND: Moves the graphics cursor to the absolute point specified by «x 
co-ordinate» and «y co-ordinate». The optional ink» parameter may be used to change 
the graphics pen ink, in the range 0 to 15. 


The optional ink mode» determines how the ink to be written next, will interact with 
that already on the graphics screen. The 4 ink modes аге: 


0: Normal 

1:XOR (eXclusive OR) 
2:AND 

3:0R 


Associated keywords: MOVER, ORIGIN,XPOS,YPOS 


MOVER 
MOVER «xoffset , «y offset>[ ,[<ink>][ , ink mode ]] 


10 MODE 1:TAG:MOVE 0,16 

20 PRINT "Life has its"; 

30 FOR n-1 TO 10 

40 MOVER -32,16 

50 PRINT "ups";:NEXT:PRINT " and"; 
60 FOR n=1 TO 10 

70 MOVER -64,-16 

80 PRINT "downs"; : МЕХТ 

run 


COMMAND: Moves the graphics cursor to a point relative to its current position. The 
relative position is specified by «х offset; and гу offset». The optional «ink: parameter 
may be used to change the graphics pen ink, in the range 0 to 15. 

The optional ink mode: determines how the ink to be written next, will interact with 
that already on the graphics screen. The 4 ink modes are: 


0:Normal 

1:XOR (eXclusive OR) 
2:AND 

3:0R 


Associated keywords: MOVE, ORIGIN,XPOS,YPOS 
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NEW 


NEW 
NEW 


COMMAND: Deletes the current program and variables in the memory. Key 
definitions are not lost, display characteristics i.e. MODE, PEN, PAPER, INKetc, are 
not changed, and the screen is not cleared. 


Associated keywords: none 


NEXT 
NEXT [dist of:-variable>] 


10 FOR a=1 TO 3 

20 FOR b=0 TO 26 

30 MODE 1 

40 PEN a:BORDER b 

50 PRINT "pen";a;"border";b 
60 FOR c=1 TO 500 

70 NEXT c,b,a 


COMMAND: Marks the end ofa F OR loop. The NEXT command may be anonymous, 
or may refer to its matching FOR. Note from the above example that the «list 
of: variable,s must appear in reverse order to their matching F OR commands, so that 
‘nested’ loops do not overlap. 


Associated keywords: FOR, STEP, TO 


NOT 


NOT «argument» 
IF NOT "alan"«"bob" THEN PRINT "correct" ELSE PRINT "wrong" 
wrong 


IF NOT "cat"»"dog" THEN PRINT "correct" ELSE PRINT "wrong" 
correct 


PRINT NOT -1 

8 

PRINT NOT 0 

-1 
OPERATOR: Performs bit-wise operations оп integers. Inverts each bit іп the 
argument. 


Further information concerning logic will be found in part 2 of the chapter entitled 
‘At your leisure....’. 


Associated keywords: AND, OR, XOR 
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ON BREAK CONT 
ON BREAK CONT 


10 ON BREAK CONT 

20 PRINT "The program will CONTinue when you try to 
*Break* using LESCI":PRINT 

30 FOR t=1 TO 1000:МЕХТ:60ТО 20 

run 


COMMAND: Cancels the action of the [ESC] key from stopping the program, and 
instead CONTinues execution. Care should be taken when using this command, as 
the program will continue until the computer is completely reset; hence you should 
SAVE sucha program before RUNning it. 


ON BREAK CONT maybedisabled withinaprogrambyON BREAK STOP. 
Associated keywords: ON BREAK GOSUB, ON BREAK STOP 


ONBREAK GOSUB 
ON BREAK 60508 «dinenumber 


10 ON BREAK GOSUB 40 

20 PRINT "program running" 

30 GOTO 20 

&@ CLS:PRINT "Pressing CESC] "; 

50 PRINT "twice calls GOSUB-routine" 
60 FOR t=1 TO 2000:NEXT 

70 RETURN 

run 


COMMAND: Instructs BASIC to jump to the sub-routine specified in the «line 
number» when the [ESC] key is pressed twice. 


Associated keywords: ON BREAK CONT, ON BREAK STOP, RETURN 
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ON BREAK STOP 
ON BREAK STOP 


10 ON BREAK 60508 40 

20 PRINT “program running" 

30 GOTO 20 

40 CLS:PRINT "Pressing CESC] "; 

50 PRINT "twice calls GOSUB-routine" 
60 FOR t-1 TO 2000:МЕХТ 

65 ON BREAK STOP 

70 RETURN 


COMMAND: Disables the ON BREAK CONT and ON BREAK GOSUB 
command, so that future operations of the [ESC] key stop the program. In the above 
example, the ON. BREAK GOSUB command will operate once only, as it is then 
disabled by line 65 inthe ON BREAK sub-routine. 


Associated keywords: ON BREAK CONT, ON BREAK GOSUB 


ON ERROR GOTO 
ON ERROR GOTO <linenumber 


10 ON ERROR GOTO 60 

20 CLS:PRINT "If error is found, "; 
30 PRINT "then List the’ program" 
40 FOR t=1 TO 4000:МЕХТ 

50 GOTO 100 

60 PRINT "Error detected in Line"; 
70 PRINT ERL:PRINT:LIST 

run 


COMMAND: Jumps to the specified dine number» when an error is detected in the 
program. 


The form of the command ON ERROR GOTO @ turns off the error trap, and 
restores normal error processing by BASIC. 


See also the R ES UME command. 


Associated keywords: DERR, ERL, ERR, ERROR, RESUME 
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ON «expression» GOSUB 


ON «selector: GOSUB dist of:line number: 


10 
20 
30 
40 
50 
60 
70 
80 
90 
108 
110 
120 
130 
140 
run 


PAPER 0:РЕМ 1:1МК 0,1 

CLS:PRINT "MENU OF OPTIONS":PRINT 
PRINT "1 - Change border":PRINT 
PRINT "2 - Change pen":PRINT 
PRINT " - Change mode RINT 
INPUT "Enter your selection";x 
ON х GOSUB 90,110,130 

GOTO 20 

bzb-1:1F Ь<0 THEN b=26 

BORDER b:RETURN 

p=p-1:IF p«2 THEN p=26 

INK 1,p:RETURN 

m=m-1:1F m«Q THEN m-2 

MODE m:RETURN 


COMMAND: Selects a sub-routine line to jump to, depending upon the value of the 


«selector». 


, which should be a positive integer expression in the range 0 to 255. The 


order of the «selector» values determines the «line number» to be selected from the «list 
of: line numbers. In the above example, selecting 1 makes BASIC jump to line 90, 


selecting 


If the val 
listed in t] 


2jumps to line 110, and 3jumpsto line 130. 


lue of the «selector» is zero, or is higher than the amount of «line numbers 
he command, then no sub-routine line will be selected. 


Associated keywords: RETURN 


Complete 
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ON «expression: GOTO 


ON «selector» GOTO «list of:line number» 


10 CLS:PRINT "MENU OF OPTIONS":PRINT 


20 PRINT "1 - List program":PRINT 
ЗӢ PRINT "2 - Edit and add":PRINT 
40 PRINT "3 - Catalog disc":PRINT 


50 INPUT "Enter your selection";n 
60 ON n GOTO 80,990,100 

70 GOTO 10 

80 LIST 

90 AUTO 

100 CAT 

run 


COMMAND: Selects a line to jump to, depending upon the value of the «selector», 
which should be a positive integer expression in the range 0 to 255. The order of the 
“selector, values determines the «line number, to be selected from the «list of: Ліпе 
numbers. In the above example, selecting 1 makes BASIC jump to line 80, selecting 
2jumpstoline 90, and 3jumpstoline 100. 


If the value of the «selector» is zero, or is higher than the amount of dine numbers 
listed in the command, then no line will be selected. 


Associated keywords: none 


ONSQGOSUB 
ON SQ (channel) GOSUB line number» 


10 ENV 1,15,-1,1 
20 ON SQ(1) GOSUB 60 

30 MODE Ø:ORIGIN 0,0,200,440,100,300 
40 FOR x=1 TO 13:FRAME:MOVE 330,200,x 
50 FILL x:NEXT:GOTO 40 

60 READ s:IF s-Ü THEN RESTORE:GOTO 60 
70 SOUND 1,s,25,15,1 

80 ON SQ(1) 60508 60: КЕТОКМ 

90 DATA 50,60,90,100,35,200,24,500,0 
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COMMAND: 60ев to a BASIC SUB-routine when there is a free slot in the given 
Sound Queue. The «channel» should be an integer expression yielding one of the 
values: 


1: for channel A 
2: for channel B 
4: for channel C 


Further information concerning sound will be found in part 2 of the chapter entitled 
‘At your leisure....’. 


Associated keywords: RETURN, SOUND, SQ 


OPENIN 
OPENIN filename 


10 REM OPEN an INput file from disc 
20 OPENIN "datafile":INPUT #9,a,a$ 
30 CLOSEIN:PRINT "The 2 values are:" 
40 PRINT:PRINT a,a$ 

run 


COMMAND: OPENs an INput file from disc, for use in the current program. The 
INput file to ОРЕМ must be an ASCII file. 

The above example will only work after you have created the file shown in the next 
example (under 0 PENOUT). 


Associated keywords: CLOSEIN,EOF 


OPENOUT 
OPENOUT filename 


10 REM OPEN an OUTput file to disc 

20 INPUT "give me a number variable";a 
30 INPUT "give me a string variable";a$ 
40 OPENOUT "datafile" 

50 WRITE #9,a,a$ 

60 CLOSEOUT:PRINT "Data saved onto disc" 
run 


COMMAND: OPENsan OUTput file to disc. 


Associated keywords: CLOSEOUT 
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OR 

«argument; OR argument 
IF "alan"«"bob" OR "dog"»"cat" THEN PRINT "correct" ELSE PRINT "wrong" 
correct 


IF "bob"«"alan" OR "cat"»"dog" THEN PRINT "correct" ELSE PRINT "wrong" 
wrong 


IF "alan"«"bob" OR "cat"»"dog" THEN PRINT "correct" ELSE PRINT "wrong" 
correct 


PRINT 1 OR 1 
1 
PRINT Ø OR Ø 
[] 


PRINT 1 OR Ø 
1 


OPERATOR: Performs bit-wise boolean operation on integers. Result is 1 unless both 
argument bits are 0. 


Further information concerning logic will be found in part 2 of the chapter entitled 
‘At your leisure....’. 


Associated keywords: AND, NOT, XOR 


ORIGIN 
ORIGIN œ, yL, deft, right, , «ор», bottom] 


10 MODE 1:BORDER 13:TAG 

20 ORIGIN 0,0,100,540,300,100 

30 GRAPHICS PAPER 3:CLG 

40 FOR х-550 TO -310 STEP -10 

50 MOVE х,206 

60 PRINT "This is a graphics window "; 
70 FRAME:NEXT:GOTO 40 


COMMAND: Sets the graphics origin points 0,0 to the position specified by the 
co-ordinates «x» and «y>. 

A graphics window’s dimensions may also be set by specifying the last four optional 
parameters. If the co-ordinates specified for the graphics window describe points 
beyond the edge of screen, then the edge of the graphics window is taken as edge of 
screen. 


Associated keywords: CLG 
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OUT 
OUT «port number, , integer expression» 
OUT &F8F4,&FF 
COMMAND: Sends the value in the ¿integer expression» (in the range 0 to 255) OUT 
to the address specified in the «port number. 


Not a command to be used by the unwary. 
Associated keywords: INP, WAIT 


PAPER 


PAPER[# «stream expression: , ]<ink> 


10 MODE Q:PEN Q:INK 0,13 

20 FOR p=1 TO 15 

30 PAPER p:CLS 

40 LOCATE 7,12:PRINT "paper";p 
50 FOR t=1 TO 500:NEXT t,p ` 


COMMAND: Sets the background ink for characters. When characters are written to 
the text screen, the character cell is filled with the paper «ink» (in the range 0 to 15) 
before the character is written, (unless the transparent mode has been selected). 


If the «stream expression» is omitted, the PAPER ink for stream #0 is assumed by 
default. 


The number of different P AP ER inks supported is dependent upon the screen MODE. 


Associated keywords: GRAPHICS PAPER, INK, PEN 
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PEEK 


PEEK (.address expression: ) 


10 MODE 1:ZONE 7 

20 WINDOW 1,40,1,2:WINDOW #1,1,40,3,25 
30 PRINT "memory-address" 

40 LOCATE 20,1:PRINT "memory-contents" 
50 FOR n=0 TO 65535 

60 p=PEEK(n) 

70 PRINT #1,п,"(&";НЕХ$(п);")"; 

80 PRINT /1,TAB(20) ;p," (&" ;HEX$ (p) ;")" 
90 NEXT 


FUNCTION: Reports the contents of the Z80 memory location specified in the 
«address expression» which should be in the range &0000 to &FFFF (0 to 65535). In 
all cases PEEK will return the value at the RAM address specified (not the ROM), 
and will be in the range &00 to & FF (0 to 255). 


Associated keywords: POKE 


PEN 


PEN[# «stream expression» , J[xink,][ , background mode»] 


10 MODE Q:PAPER 0:1МК 0,13 

20 FOR p=1 TO 15 

30 PEN p:PRINT SPACE$(47);"pen";p 
40 FOR t=1 TO 500:NEXT t,p:GOTO 20 
run 


COMMAND: Sets the “ink, (in the range 0 to 15) to be used when writing to the given 
screen stream, (stream #0 if not specified). The background mode; parameter can be 
set to transparent (1) or opaque (0). 


Either of the last 2 parameters may be omitted, but not both. If a parameter is 
omitted, that particular setting is not changed. 


Associated keywords: PAPER 
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PI 
PI 


PRINT PI 
3.14159265 


FUNCTION: Returns the value of the ratio between circumference and diameter of a 
circle. 


Associated keywords: DEG, RAD 


PLOT 


PLOT «xco-ordinate> , «y со-огаша(е | , [-ink»][ , ink mode] 


10 MODE 1:BORDER Q:PAPER @:PEN 1 

20 INK 0,0:1МК 1,26:1МК 2,13,26:DEG 
30 FOR x=1 TO 360:0RIGIN 320,200 

40 DRAW 50%С05 (х) ,50*SINOO ,1 

50 PLOT 100*COS(x),25*SIN(x):NEXT 

60 ORIGIN 0,0:t-TIME*700:WHILE TIME«t 
70 PLOT RND*64Q0,RND*4OO:WEND 

80 PLOT RND*640,RND*400,2 

90 GOTO 90 

run 


COMMAND: Plots a point on the graphics screen, at the absolute position specifiedin 
the x,y co-ordinates. The ‹іпі in which to plot the point may be specified (in the range 
Oto 15). 


The optional ink mode» determines how the ink being written interacts with that 
already on the graphics screen. The 4 ink modes are: 

0: Normal 

1:XOR (eXclusive OR) 

2:AND 

3:0R 


Associated keywords: GRAPHICS PEN,PLOTR 
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PLOTR 
PLOTR «offset. , «y offset ,[ink Jl, ink mode,]] 


10 REM use cursor keys to draw lines 
20 BORDER @:GRAPHICS PEN 1 

30 MODE 1:PLOT 320,200 

40 IF INKEY(@)=@ THEN PLOTR 0,1 

50 IF INKEY(1 THEN PLOTR 1,0 

60 IF INKEY(2 THEN PLOTR 0,-1 

70 IF INKEY(8 THEN PLOTR -1,0 

80 IF INKEY(9)-0 THEN 30:REM copy=clear 
90 GOTO 40 


COMMAND: Plots a point on the graphics screen at the specified position «х offset» 
and «y offset», relative to the current graphics cursor position. The ‹іпі in which to 
plot the point may be specified (in the range 0 to 15). 


The optional ink mode» determines how the ink being written interacts with that 
already on the graphics screen. The 4 ink modes are: 


0: Normal 

1: ХОК (eXclusive OR) 
2:AND 

3:OR 


Associatedkeywords: GRAPHICS PEN,PLOT, 


POKE 
POKE «address expression» , integer expression, 


10 FOR m=49152 TO 65535 
20 POKE m,100 
30 NEXT 


run 


COMMAND: Writes the value of the «integer expression» (іп the range 0 to 255) 
directly into the 780 memory (RAM) at the specified «address expression». 


Not a command to be used by the unwary. 


Associated keywords: PEEK 
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POS 
POS (#«stream expression») 


10 MODE 1:BORDER @:LOCATE 8,2 

20 PRINT "use cursor left/right keys" 
30 WINDOW 1,48,12,12:CURSOR 1,1 

408 FOR n=1 TO 19:PRINT СНЕ$(9); : МЕХТ 
50 IF INKEY(1)<>-1 THEN PRINT CHR$(9); 
60 IF INKEY(8)<>-1 THEN PRINT CHRS$(8); 
70 LOCATE #1,2,24 

80 PRINT #1,"text cursor "; 

90 PRINT #1,"horizontal position ="; 
100 PRINT 41,РО5(40):60ТО 50 

run 


FUNCTION: Reports the current horizontal P 0 Sition of the text cursor relative to 
the left edge of the text window. The «stream expression» MUST be specified, and does 
NOT default to # 0. 


POS (#8) reports the current horizontal carriage position for the printer, where 118. 
the extreme left hand edge. 


РОЅ (#9) reports the logical position in the disc file stream, i.e. the number of 
printing characters sent to the stream since the last carriage return. 


Associated keywords: VPOS, WINDOW 


PRINT 
РКІМТІЙ «stream expression , |[-list of:«print items» ] 


10 a$="small" 

20 b$="this is a larger string" 
30 PRINT a$;a$ 

40 PRINT a$,a$ 

50 PRINT 

60 PRINT b$;b$ 

70 PRINT b$,b$ 

run 


COMMAND: Prints the dist of:«print items to the given stream, (to stream #0 if no 
«Stream expression» is specified). 
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Note that when a semicolon ; is used to tell the computer to print the following «print 
item» next to the preceding item, BASIC first checks to see if the following «print 
item» can fit onto the same line. If not, it will be printed on a new line regardless of the 
semicolon. 


Note also that when a comma , is used to tell the computer to print the following 
«print item» in the next print zone, BASIC first checks to see that the preceding item 
has not exceeded the length of the current zone. If it has, the following «print item» is 
printed in a further zone. 


PRINTSPC 
PRINT TAB 


PRINT[#-<stream expression» , ][-list of:«print item»][ ; ] 
[SPC ( integer expression) [list of:-printitem:] 


РКІМТ[# stream expression» , ][ dist of:«printitem:][ 7 ] 
[TAB ( integer expression: ) ][ ist of:.print item] 


10 PRINT "this is spc function" 
20 FOR x=6 TO 15 

30 PRINT SPC(5)"a";SPCOO"b" 
40 NEXT 

50 PRINT "this is tab function" 
60 FOR x=6 TO 1 
70 PRINT ТАВ(5)" 
80 NEXT 


"PTABOO"b" 


SPC prints the number of spaces specified in the «integer expression», and will print 
any following «print item» immediately next to the spaces, (assuming that the 
following «print item» will fit onto the line). Hence it is not necessary to terminate 
SPC withasemicolon. 


TAB prints the number of spaces relative to the left edge of the text window, and will 
print any following «print item» immediately next to the spaces, (assuming that the 
following «print item» will fit onto the line). Hence it is not necessary to terminate 
TAB with a semicolon. If the current position is greater than the required position, 
then a carriage return is executed, followed by spaces to reach the required position 
on the next line. 
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PRINT USING 


PRINT[#-stream expression | list of:«print item» 51 
[US ING format template» ][:separator expression] 


10 FOR x-1 TO 10 

20 n-100080* (RND 15) 

30 PRINT "goods";USING "#H#HHHHH, Яй";п 
40 NEXT 

run 


PRINT USING enables you to specify the print format of the expression returned 
by the PRINT command. This is achieved by specifying a «format template» to which 
the printed result must correspond. The «separator: is a comma or semicolon. The 
«format template: is a string expression which is constructed using the following 
"format field specifiers': 


Numeric Formats 
Within the number: 


# Each # specifies a digit position. 
Example template: ###### 


. Specifies the position of the decimal point. 
Example template: ######.## 


^» (Specifies one digit position.) May appear BEFORE the decimal point only. 
Specifies that digits before the decimal point are to be divided into groups of 
three (for thousands), separated by commas. 
Example template: ######,.## 


Around the number: 


££ (Specifies two digit positions.) Specifies that a £ sign be printed immediately 
before the first digit or decimal point (after any leading sign). Note that the £ 
willoccupy oneofthe digit positions. 
Example template: £ £ 8 &£ 484 8i , . H8 


** (Specifies two digit positions.) Specifies that any leading spaces be replaced 
by * asterisks. 
Example template: **######,.## 
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ж 


5% 


**$ 


Pitt 


(Specifies three digit positions.) Acts ** and ££ options combined, i.e. 
leading * asterisks and £ sign. 
Example template: **£######,.## 


(Specifies two digit positions.) Specifies that a $ sign be printed 
immediately before the first digit or decimal point (after any leading sign). 
Note that the $ will occupy one of the digit positions. 

Example template: $$###### ,.88 — 


(Specifies three digit positions.) Acts as ** and $$ options combined, i.e. 
leading * asterisks and $ sign. 
Example template: * *$ 4 8 8 48kRTmrH , . HH 


Specifies that + or — is to be printed, as appropriate. If the + appears at the 
beginning of the template, the * sign is printed immediately before the 
the number (and any leading currency sign). If the + appears at the end of 
the template, the sign is printed after the number (and any exponent 
part). 

Example template: +####.#### 


The - sign may only appear at the END of a template. It specifies that - is 
to be printed after any negative number (and exponent part). If the 
number is positive, a space will be printed. A - sign is printed before a 
negative number by default, unless countermanded by the use of this 
template. 

Example template: ####.####- 


Specifies that the number is to be printed using the exponent option. The 
111 f in the template should appear AFTER the digit positions, but 
BEFORE any trailing + or - sign. 

Exampletemplate: 4 . 448447 TT T+ 


The «format template: for a number may not exceed 20 characters. Numbers are 
rounded to the number of digits printed. 


Ifthe format template is too small for the input expression, for example: 


PRINT USING "####";12365678 


ће printed result is NOT shortened to fit the template, but is instead printed in its 
entirety, preceded by a % sign, to indicate ‘format failure’. 
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String Formats 


10 CLS:a$= 
20 PRINT 
30 PRINT:PRINT "! specifiers 
40 PRINT USING 

50 PRINT:PRINT "\spaces\ specifier= "; 
60 PRINT USING "V \";а$ 

70 PRINT:PRINT "& specifier= "; 

80 PRINT USING "&";а$ 

90 GOTO 90 

run 


“abcdefghij kUsnoparst" 


!  Specifiesthatonly the first character ofthe string isto be printed. 
Exampletemplate: ! 


\‹врасев›\ 
Specifies that only the first x characters of the string аге to be printed, where x 
is equal to the length of the template (including theback-slashes). 
Example template: \ \ 


& Specifies that the entire string is to be printed ‘as is’. 
Example template: & 


The «format template» for a string may not exceed 255 characters. 


Both numeric and string «format template»s may be represented by string variables, 
for example: 


10 ава ЕИИИЙ ИЙ" 
20 b$ 
30 PRINT USING a$;12345.6789; 
40 PRINT USING b$;"pence" 
run 


Further information concerning print formatting will be found in part 2 of the 


chapter entitled ‘At your leisure....’. 
Associated keywords: SPC, TAB, USING, ZONE 
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RAD 
RAD 
RAD 


COMMAND: Sets КА Dians mode of calculation. BASIC defaults to radians when the 
computer is switched on or reset, or when the commands NEW, CLEAR, or LOAD, 
RUN, etc, are issued. 


Associated keywords: АТМ, COS, DEG, SIN, TAN 


RANDOMIZE 
RANDOMIZE [numeric expression] 


RANDOMIZE 123.456 
PRINT RND 
0.258852139 


COMMAND: Randomizes the number ‘seed’ specified in the «numeric expression». 
BASIC’s random number generator produces a pseudo-random sequence in which 
each number depends on the previous number, commencing at a given number seed. 
The sequence is always the same. RANDOMIZE sets the new initial value for the 
random number generator either to the specified value, or to a value entered by the 
user if the numeric expression» is omitted. 


RANDOMIZE TIME produces a sequence that is difficult to repeat. 
Associated keywords: RND 


READ 
READ «іні of:.variable> 


10 FOR n=1 TO 8 

20 READ a$,c 

30 PRINT a$;" ";:SOUND 1,c:NEXT 

40 DATA here,478,are,426,8,379,notes 

50 DATA 358,0f,319,a,284,musical,253,scale,239 
run 


COMMAND: Reads data from DATA statements and assigns it to variables, 
automatically stepping the ‘pointer’ to the next item in the DATA statement 
afterwards. The RESTORE command can be used to return the pointer to the 
beginning ofa DATA statement. 

Further information concerning data will bé found in part 2 of the chapter entitled 


‘At your leisure....’. 
Associated keywords: DATA, RESTORE 
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RELEASE 
RELEASE «sound channels» 


10 SOUND 65,1000,100 

20 PRINT "Press R to release the sound" 
30 IF INKEY(50)=-1 THEN 30 

40 RELEASE 1 

run 


COMMAND: Releases sound channels which are set to a ‘hold’ state in the SOUND 
command. 


The parameter «sound channels: must yield an integer value in the range 1 to 7, 
which operates as follows: 


1: Releases channel A 

eleases channel B 

eleases channel A and B 
е!еавев channel C 

eleases channel A and C 
leases channel B andC 

7: Releases channel A and Band C 


Further information concerning sound will be found in part 2 of the chapter entitled 
‘At your leisure....'. 


Associated keywords: SOUND 


REM 
REM crest of line» 

10 REM Intergalatic Hyperspace Mega-Monster 

Invaders Deathchase by AMSOFT 

20 REM Copyright AMSOFT 1985 
COMMAND: Inserts a RE Mark into a program. The -rest of line is ignored by BASIC, 
and may contain any characters, including colons : which normally separate 
statements. 


A single quote character ' can be used in place of : REM in all applications EXCEPT 
in DATA statements, where the ' is treated as part of an unquoted string. 


Associated keywords: none 
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REMAIN 
REMAIN ( timer number ) 


10 AFTER 500,1 60508 40 

20 AFTER 100,2 6058 50 

30 PRINT "program running":GOTO 30 

20 REM this GOSUB-routine will not be called 
as it is disabled in Line 80. 

50 PRINT:PRINT "Timer 1 will now be "; 

60 PRINT "disabled by REMAIN." 

70 PRINT "Time-units remaining were:"; 

80 PRINT REMAIN(1) 


FUNCTION: Returns the КЕМА I Ning count from the delay timer specified in «timer 
number» (in the range 0 to 3), and disables it. 


Further information concerning interrupts will be found in part 2 of the chapter 
entitled ‘At your leisure....'. 


Associated keywords: AFTER, DI, EI, EVERY 
RENUM 


RENUM [mew line number ЇГ, 014 line number» ЇГ, increment: ) 


10 CLS 

20 REM this will be Line 123 
30 REM this will be Line 124 
40 REM this will be Line 125 
RENUM 123,20,1 

LIST 


COMMAND: RENUMbers program lines. 

The parameter «old line number specifies the current existing line number at which 
renumbering is to commence. If «old line number» is omitted, renumbering will 
commence from the beginning ofthe program. 

The parameter «new line number specifies the new starting line number for the 
renumbered lines. If «new line number is omitted, the renumbered program will 
startatline 10. 

The parameter «increment» specifies the numeric step between each of the 
renumbered lines. If increment» is omitted, the value ofthe numeric step will be 10. 


RENUM takes care of all GOSUB, GOTO and other line calls. However, line number 
references within string expressions, such as those issued in KE Y commands, are not 
altered; neither are line references within REM statements, nor the ine number 
expression: ina CHAINor CHAIN MERGE command. 

Line numbers are valid in the range 1to 65535. 


Associated keywords: DELETE, LIST 
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RESTORE 
RESTORE [dine number] 


10 READ a$:PRINT a$;" "; 

20 RESTORE 50 

30 FOR t=1 TO 500:NEXT:GOTO 10 

40 DATA restored data can be read again 
5@ DATA and again 

run 


COMMAND: Restores the position of the ‘pointer’ back to the beginning of the DATA 
statement specified in the optional line number». Omitting this parameter restores 
the pointer back to the first DAT A statement. 


Further information concerning data will be found in part 2 of the chapter entitled 
‘At your leisure....’. 


Associated keywords: DATA, READ 


RESUME 


RESUME [Jine number] 


10 ON ERROR GOTO 60 

20 FOR х-10 ТО Ø STEP-1:PRINT 1/x:NEXT 
30 END 

40 PRINT "go here after error" 

5@ END 

60 PRINT "error no.";ERR;"in line" ERL 
70 RESUME 40 

run 


COMMAND: Resumes normal execution of a program after an error has been 
trapped and processed byan ON ERROR GOTO command. Ifthe dine number to 
RESUME at is not specified, the program will re-commence execution from the same 
line in which the error was first trapped. Try removing the Ліпе number» parameter 
in the above example, then RUN again. 


70 RESUME 
run 


Associated keywords: DERR, ERL, ERR, ERROR, ON ERROR GOTO, 
RESUME NEXT 
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RESUME NEXT 


RESUME NEXT 


10 ON ERROR GOTO 90 

20 PRINT "press CRETURN] each time" 
30 INPUT "1";a 

4@ INPUT "2";a 

50 inpot "3";a :REM syntax error! 
60 INPUT "4";a 

70 INPUT "5";a 

80 END 

90 PRINT "error no.";ERR;"in Line";ERL 
100 RESUME NEXT 

run 


COMMAND: Resumes normal execution of a program after an error has been 
trapped and processed byan ON ERROR GOTO command. 


RESUME NEXT will re-commence execution from the line after that in which the 
error was first trapped. 


Associated keywords: DERR, ERL, ERR, ERROR, ON ERROR GOTO,RESUME 


RETURN 
RETURN 


10 60508 5@:PRINT "after the gosub":END 
50 FOR n-1 TO 20 

60 PRINT "sub-routine" 

70 NEXT:PRINT 

80 RETURN 

run 


COMMAND: Marks the end of a sub-routine. BASIC returns from the sub-routine to 
the statement immediately after the GO S UB command which invoked it. 


Associated keywords: GOSUB 
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RIGHT$ 


RIGHTS («string expression» , «required length» ) 


10 MODE 1:a$="CPC6128 computer" 
20 FOR n=1 TO 16:LOCATE 41-п,п 
30 PRINT RIGHT$(a$,n) 

40 NEXT 

run 


FUNCTION: Returns the number of characters (in the range 0 to 255) specified in the 
required length» parameter, after extracting them from the RIGHT of the «string 
expression. If the «string expression: is shorter than the «required length», the whole 
«string expression is returned. 


Associated keywords: LEF T$, MIDS$ 


RND 


RND[ («numeric expression: ) | 


10 RANDOMIZE 

20 FOR x=1 TO -1 STEP -1 
30 PRINT "rnd parameter=";x 
40 FOR n=1 TO 6 

50 PRINT RND(x) 

60 NEXT n,x 

run 


FUNCTION: Returns the next RaNDom number in sequence if the «numeric 
expression» has a positive value or is not specified. 


If the «numeric expression: yields a value of zero, RND returns a copy of the last 
random number generated. 


If the «numeric expression» yields a negative value, a new random number sequence 
isstarted, the first number of which is returned. 


Associated keywords: RANDOMIZE 
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ROUND 
ROUND (numeric expression,[ , .decimals,]) 

10 FOR n=4 TO -4 STEP-1 

20 PRINT ROUND (1234.5678,n), 

30 PRINT “with integer expression";n 

40 NEXT 

run 
FUNCTION: Rounds the «numeric expression: to a number of decimal places or 
power of ten specified in the «decimals, parameter. If «decimals: is less than zero, the 
«numeric expression» is rounded to give an absolute integer with decimals» number 
of zeros before the decimal point. 


Associated keywords: ABS, CINT, FIX, INT 


RUN 
RUN «string expression» 
RUN "disc" 


COMMAND: Loads a BASIC or binary program from disc and commences execution. 
Any previously loaded BASIC program is cleared from the memory. 


Protected BASIC programs may be run directly in this manner, 
Associated keywords: LOAD 


RUN 
RUN [dine number>] 

RUN 200 
COMMAND: Commences execution of the current BASIC program, from the 
specified ine number, parameter, or from the beginning of the program if the 
parameter is omitted. RUN resets the value of all current program variables to zero or 
null. 
Protected programs may NOT be run in this manner, after loading. 


Associated keywords: CONT, END, STOP 
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SAVE 
SAVE filename , file type+][ , binary parameters» | 
SAVE "discfile.xyz" 
..„вауеѕ the file in normal unprotected BASIC mode. 
SAVE "discfile.xyz",P 
...aves the file in Protected BASIC mode. 
SAVE "discfile.xyz",A 
„saves the file in ASCII mode. 
SAVE "discfile.xyz",B,8000,3000,8001 


«Saves the file in Binary mode. In this example, saves the area of the computer's 
memory starting at address 8000; the length of the file being 3000 bytes; the 
optionalentry point address being 8001. 


COMMAND: Saves the program currently in the memory to disc. A Binary file is an 
area of memory saved to disc. The Binary parameters are: 


«start address» , file length» [ , entry point] 


The screen memory can be saved as a Binary file. This is known as a 'screen dump' 
and can be performed using the command: 


SAVE "всгееп",8,8С000,84000 
Then, to load it back onto the screen: 
LOAD "screen" 


Associated keywords: CHAIN, CHAIN MERGE, LOAD, MERGE, RUN 
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SGN 


SGN С numeric expression: ) 


10 FOR n=200 TO -200 5ТЕР-20 

20 PRINT "SGN returns"; 

30 PRINT SGN(n);"for a value of";n 
40 NEXT 

run 


FUNCTION: Determines the SiGN of the «numeric expression». SGN returns -1 if 
«numeric expression» is less than zero, returns 0 if numeric expression» equals zero, 
and returns 1 if numeric expression» is greater than zero. 


Associated keywords: ABS 


SIN 


S IN («numeric expression» ) 


10 CLS:DEG:ORIGIN 0,200 

20 FOR п-й TO 720 

30 y=SIN(n) 

40 PLOT n*640/720,198*y:NEXT 
50 GOTO 50 

run 


FUNCTION: Calculates the S I Ne of the numeric expression». 


Note that DEG and RAD can be used to force the result of the above calculation to 
degrees or radians respectively. 


Associated keywords: АТМ, COS, DEG, RAD, TAN 
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SOUND 


SOUND «channel status» , tone period,[ , duration» | , volume» 
[, «volume envelope>| , «tone envelope» , «noise period;]]]]] 


10 FOR 2-0 TO 4095 
20 SOUND 1,2,1,12 
30 NEXT 

run 


COMMAND: Programs a sound. The command takes the following parameters: 


Parameter 1: «channel status» 


The «channel status» parameter must yield an integer in the range 1 to 255. The 
parameter is bit significant, with each bit of the binary value of «channel status: 
signifying the following: 


Bit 0 : (decimal 1) send sound to channel A (Least significant bit) 
Bit 1 : (decimal 2) send sound to channel B 

Bit 2 : (decimal 4) send sound to channel C 

Bit 3 : (decimal 8) rendezvous with channel A 

Bit 4 : (decimal 16) rendezvous with channel B 

Bit 5 : (decimal 32) rendezvous with channel C 

Bit 6 : (decimal 64) hold sound channel 

Bit 7 : (decimal 128) flush sound channel (Most significant bit) 


Hencea «channel status» parameter of 68 for example, would mean: 


Send to channel C (4), with a hold state (64). 


Parameter 2: «tone period» 


This parameter defines the pitch of the sound, or in other words, *what note it is' (i.e. 
do re mi fa so, etc). Each note has а set number, and this number is the «tone period». 
See the chapter entitled ‘For your reference....". 


Parameter 3: duration; 


This parameter sets the length of the sound, in other words, ‘how long it lasts’. The 
parameter works in units of 0.01 (one hundredth) of a second, and if you don’t specify 
the «duration», the computer will default to 20 (one fifth of a second). 


Complete List of Keywords Chapter 3 Page 73 


If the duration, parameter is zero, the sound will last until the end of the specified 
volume envelope. 


If the «duration: parameter is negative, the specified volume envelope is to be 
repeated ABS («duration») times. 


Parameter 4: volume» 


This parameter specifies the starting volume of a note. The number is in the range 0 
to 15. А volume» figure of 0 is off, while 15 is maximum. If no number is specified, the 
computer will default to 12. 


Parameter 5: volume envelope» 


To make the volume vary within the duration of the note, you can specify a volume 
envelope using the separate command ENV. You can in fact create up to 15 different 
volume envelopes referenced in the range 1 to 15. The «volume envelope» parameter 
calls up the appropriate volume envelope reference number for use in the SOUND 
command. 


Refer to the description of the ENV command. 


Parameter 6: tone envelope; 


To make the tone or pitch vary within the duration of the note, you can specify a tone 
envelope using the separate command ENT. You can in fact create up to 15 different 
tone envelopes referenced in the range 1 to 15. The «tone envelope» parameter calls up 
the appropriate tone envelope reference number for use in the SOUND command. If 
you have specified a negative envelope number in the ENT command, use the 
absolute value of that number (i.e. without the negative sign) in this «tone envelope» 
parameter ofthe S OUND command. 


Referto the description ofthe EN T command. 


Parameter 7: «noise» 


A range of white noise is available, which can be switched off or added to the sound by 
varying the «noise» parameter between 0 and 31. 


Further information concerning sound will be found in part 2 of the chapter entitled 
‘At your leisure....’. 


Associated keywords: ENT, ЕМУ, ОМ SQ GOSUB,RELEASE, SQ 
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SPACE$ 


SPACES (integer expression») 


10 MODE 1 

20 PRINT "Put 9 spaces between me"; 
30 PRINT SPACES(9); 

40 PRINT "and you!" 

run 


FUNCTION: Creates a string of spaces of the given length, (in the range 0 to 255) 
specified in the <integer expression». 


Associated keywords: SPC, STRING$,TAB 


SPC 


(See PRINT SPC) 


SPEEDINK 


SPEED INK period 1» , period 2» 


10 BORDER 7,18 

20 FOR 1-30 TO 1 STEP-1 
30 SPEED INK i,i 

40 FOR t-1 TO 700:МЕХТ t,i 
run 


COMMAND: Sets the rate of alternation between two ink colours specified in an INK 
or BORDER command. «period 1, specifies the time, in units of 0.02 (fiftieths) second 
for the first colour to be used; period 2» sets the time for the second colour. 


You must exercise careful judgement to avoid mesmeric effects when selecting 
colours and repeat rates! 


Associated keywords: BORDER, INK 
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SPEED KEY 


SPEED KEY startdelay, , repeat period, 


10 CLS:FOR k=7 TO 1 5ТЕР-2 

20 PRINT "type your name, then CRETURNI" 
30 SPEED KEY k,k 

40 LINE INPUT a$:NEXT 

50 PRINT "That's a funny name!" 


COMMAND: Sets the rate of keyboard auto repeat. The «start delay: parameter 
specifies the time, in units of 0.02 (fiftieths) second before auto repeat starts. The 
«repeat period: parameter sets the interval between each auto repeat of a key. 


SPEED KEY will operate only on keys which auto repeat by default, or which have 
been set to autorepeat bythe KEY DEF command. 


When intending to use small values of «start delay», it is wise to pre-program one of 
the numeric keys to return the keyboard to its default SPEED KEY setting of 
30,2. This can be achieved by the command: 


KEY 0, "5РЕЕр KEY 30,2"*CHR$(C13) 


«Which will reset SPEED KEY to its default values when the Ø key оп the 
numeric keypad is pressed. 


Associated keywords: KEY DEF 


SPEED WRITE 


SPEED WRITE integer expression» 
SPEED WRITE 1 


COMMAND: Sets the speed at which data is to be saved or written to a cassette unit 
(if connected). The cassette can be written at either 2000 baud (bits per second) if the 
"integer expression» is 1, or at the default rate of 1000 baud if the «integer expression» 
is 0. When loading a file from tape, the computer automatically selects the correct. 
reading speed as it loads. 


For higher data reliability, it is recommended that you use SPEED WRITE 0 
(default). 


The SPEED WRITE commandhasno effect upon disc operation. 
Associated keywords: OPENOUT, SAVE 
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50 

SQ channel) 
10 SOUND 65,100,100 
20 PRINT SQ(1) 
run 


67 


FUNCTION: Reports the state of the Sound Queue for the specified «channel» which 
must be an integer expression, yielding one ofthe values: 


1: for channel A 
2: for channel В 
4: for channel C 


The SQ function returns a bit significant integer, comprising the following bit 
settings: 

Bits0,1,and2 :the number of free entries in the queue 

Bits3,4, and5 :the rendezvous state at the head of this queue 

Bit6 : the head ofthe queue is held 

Bit7 : the channel is currently active 

...where Bit 0 is the least significant bit, and Bit 7 is the most significant bit. 


It can be seen therefore, that if Bit 6 is set, Bit 7 cannot be set, and vice versa. 
Similarly if Bits 3, 4, or 5 are set, Bits 6 and 7 cannot be set. 


Further information concerning sound will be found in part 2 of the chapter entitled 
‘At your leisure....'. 


Associated keywords: ON. SQ GOSUB, SOUND 
SQR 
SQR (numeric expression» ) 


PRINT SQR(9) 
3 


FUNCTION: Returns the S Quare Root of the specified «numeric expression». 


Associated keywords: none 
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STEP 
(See FOR) 


STOP 


STOP 


10 FOR n=1 TO 30:PRINT n:NEXT 
20 STOP 

30 FOR n-31 TO 60:PRINT n:NEXT 
run 

cont 


COMMAND: Stops execution of a program, but leaves BASIC in a state where the 
program can be resumed by the CONT command. S TOP may be used to interrupt the 
program ata particular point when de-bugging. 


Associated keywords: CONT, END 


STR$ 


STRS ( numeric expression: ) 


10 a-&FF :REM 255 hex 


20 X1111 :REM 15 binary 
30 с$=" жж" 

40 PRINT c$+STR$(a+b)+c$ 
run 


kee 270*** 


FUNCTION: Converts the «numeric expression: to a decimal ST Ring representa- 
tion. 


Associated keywords: BINS, DEC$, HEX$, VAL 


Chapter 3 Page 78 Complete List of Keywords 


STRING$ 
STRING$ (length; , character specifier» ) 


PRINT STRING$(40,"*") 
FI III III III III III II II III a: 


FUNCTION: Returns a string expression consisting of the specified character 
repeated the number of times (in the range 0 to 255) specified in the «length». Note 
that the above example could be entered as: 


PRINT 5ТК1М65(40,42) 
ЖКААЖ IOI I К 


... where the «character specifier» 42 refers to the ASCII value of the character * i.e. 
equivalentto PRINT STRING$(40,CHR$(42)). 


Associated keywords: SPACE $ 


SWAP 
(SeeWINDOW SWAP) 


SYMBOL 
SYMBOL «character number , «list of:<row> 


10 MODE 1:SYMBOL AFTER 105 
20 гош1=255: КЕМ binary 11111111 


30 EM binary 10000001 
40 ЕМ binary 10111101 
50 ЕМ binary 10011001 
60 EM binary 10011001 


70 EM binary 10111101 

80 EM binary 10000001 

90 row8= :REM binary 11111111 

100 PRINT "Line 110 re-defines the letter i (105). 
Type in some i's and see! Then list the program." 

110 SYMBOL 105,row1,row2,rowS,row4,row5,rowó,row7,row8 

run 


COMMAND: Re-defines the shape of a character on the screen. Each of the 
parameters must yield an integer in the range 0 to 255. 
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To allocate space in the CPC6128’s memory for a newly defined character, the 
computer must first be prepared by issuing the command: 


SYMBOL AFTER x 
... where x is equal to or less than the character number you wish to re-define. 
Тһе command 5 Y MBOL is then issued, followed firstly by the character number x. 


Regardless of whether or not the value of x specifies a character which is directly 
typeable at the keyboard, the re-defined character can be printed on the screen by 
issuing the command: 


PRINT СНК5 (х) 


After SYMBOL х, there are up to 8 parameters which specify the 8 individual 
horizontal rows of the character, starting from the top. Each of the parameters can be 
in the range 0 to 255. The binary representation of each of the 8 parameters 
determines the pattern of that particular row in the finished character. 


For example, if the first of the 8 parameters is 1, then the top row of the character has 
a binary representation of 00000001. Where the 1 appears, the section of the 
character is printed in the P EN colour; where a 0 appears, the section of the character 
is not visible because it is printed in the PAPER colour. Therefore the top row of this 
newly defined character has a dot in the top right hand corner. Continuing this 
example, we will specify the other 7 parameters as 35,7,15,31,63,0,0 - the 
binary representation of all 8 parameters then being: 


parameter (row) 1: 00000001 binar; 
parameter (row) 2 : 00000011 binary 
parameter (row) 3 : 00000111 binar; 
parameter (row) 4 : 00001111 binary : (decimal 15) 
parameter (row) 5 : 00011111 bina: decimal 31) 
parameter (row) 6 : 00111111 binary : (decimal 63) 
parameter (row) 7 : 00000000 bina: decimal 0) 

parameter (row) 8 : 00000000 binary : (decimal 0) 


decimal 1) 
decimal 3) 
decimal 7) 


Looking at the binary representation ofthe above 8 parameters, it should be possible 
to see what the shape of the new character is going to be like. Let's assign those 
parameters to character number 255 using the command: 


SYMBOL 255,1,3,7,15,31,63,0,0 
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Note that the value of Ø appearing in the 2 final parameters means that you need 
only type in: 


SYMBOL 255,1,3,7,15,31,63 


Note that you can enter the parameters in binary to save you converting the ‘pattern’ 
of the symbol that you've created into decimal form. (Remember to use the &X binary 
prefix.) For example: 


SYMBOL 255,8Х00000001,8Х00000011,8Х00000111, 
8Х00001111,8Х00011111,8Х00111111 


ч Now, to see the character: 
PRINT CHR$(255) 


Assigning the above parameters to a typeable character on the keyboard would result 
in the new character appearing whenever the appropriate key is pressed, or wherever 
the previous character would have been printed. Furthermore, BASIC will not reject 
this new character as incomprehensible, but will regard it as the equivalent of the 
previous character, 

Further information concerning user-defined characters will be found in part 2 of the 


chapter entitled ‘At your leisure....’. 
Associated keywords: SYMBOL AFTER 


SYMBOL AFTER 
SYMBOL AFTER «integer expression» 


10 CLS 

20 SYMBOL AFTER 115 

30 PRINT "Line 40 re-defines the s "; 
40 SYMBOL 115,0,56,64,64,48,8,8,112 

50 PRINT "to s" 

60 PRINT "Cancel this defintion of s," 
70 PRINT "by typing: SYMBOL AFTER 240" 
run 


COMMAND: Sets the number of permissible user defined characters (in the range 0 
to 256). The default setting is 240, giving 16 user defined characters (from 240 to 255). 
If the «integer expression: is 32, then all characters from 32 to 255 are re-definable.. 
SYMBOL AFTER 256 permitsnocharacters to be re-definable. 


Whenever a SYMBOL AFTER command is executed, all user defined characters 
are reset to their default conditions. 


Complete List of Keywords Chapter 3 Page 81 


SYMBOL AFTER will NOT operate if invoked AFTER the value of HIMEM has 
been altered using the MEMORY command, or by the opening of a file buffer with 
OPENIN or OPENOUT. Under such circumstances, an ‘Improper argument’ 
error (5) will be reported, (unless the previous statewas SYMBOL AFTER 256). 


Further information concerning user-defined characters will be found in part 2 of the 


chapter entitled ‘At your leisure....’. 


Associated keywords: HIMEM, MEMORY, SYMBOL 


TAB 


(See PRINT TAB) 


TAG 


TAG[A «stream expression] 


10 INPUT "enter your name";a$:CLS 
20 PRINT "You certainly get around ";a$ 
30 TAG 

40 x-LEN(aS)*17:y-50*RND*30U:MOVE -x,y 
50 FOR f--x TO 640 STEP RND*7+3 

60 MOVE f,y:PRINT " ";a$;:FRAME:NEXT 

70 FOR Ь=640 TO -x STEP-RND*7+3 

80 MOVE b,y:PRINT a$;" ";:FRAME:NEXT 

90 GOTO 40 


COMMAND: Sends any text specified for the given «stream expression, to be printed 
at the graphics cursor position. This allows text and symbols to be mixed with 
graphics, or moved pixel by pixel as opposed to character by character. The «stream 
expression» defaults to # ifomitted. 


The top left of the character cell is T AGged (Text At Graphics) to the graphics cursor, 
and non-printing control characters (e.g. line feed and carriage return) will display if 
the PRINT statement is not terminated by a semicolon. 


In the default stream (90), BASIC will switch off TAG when returning to direct 
mode. 


Associated keywords: T AGO F F 
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TAGOFF 


TAGOF F| #-stream expression: | 


10 MODE 2:TAG :REM Text At Graphics-on 
20 year=1984:FOR x=1 TO 640 STEP 70 
30 MOVE x,400:DRAWR 0,-550 

40 year=year+1:PRINT year; : МЕХТ 

50 TAGOFF :REM Text At Graphics-OFF 
60 LOCATE 34,25:PRINT "Yearly figures" 
70 GOTO 70 

run 


COMMAND: Cancels TAG (Text At Graphics) for the given «stream expression: 
(stream #@ if not specified), and re-directs text to the previous text cursor position 
used before T AG was invoked. 


Associated keywords: TAG 


TAN 


TAN C. numeric expression: ) 


PRINT ТАМ(45) 
1.61977519 


FUNCTION: Calculates the T ANgent of the -numeric expression:, which must be in 
the range —200000 to +200000. 


Note that DEG and RAD can be used to force the result of the above calculation to 
degrees or radians respectively. 


Associated keywords: ATN, COS, DEG, RAD, SIN 
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TEST 


TEST C x co-ordinate, , «y co-ordinate» ) 


10 CLS 

20 PRINT "You are using pen number"; 
30 PRINT TEST(10,386) 

40 PRINT "Try changing PENs and MODEs"; 
50 PRINT "....then RUN again." 

run 


FUNCTION: Moves the graphics cursor to the absolute position specified by the «х 
and y co-ordinate»s, and reports the value of the ink at the new location. 


Associated keywords: MOVE, MOVER, TESTR, XPOS, YPOS 


TESTR 


TESTR C«xoffset; , «y offset») 


10 MODE Q:FOR x=1 TO 15:LOCATE 1,х 
20 PEN x:PRINT STRINGS(10,143); : МЕХТ 
30 MOVE 200,400:PEN 1 

40 FOR n=1 TO 23:LOCATE 12,n 

50 PRINT "реп"; ТЕЅТК(0,-16) : МЕХТ 


FUNCTION: Моуеѕ the graphics cursor by the amount specified іп the ‹х and у 
offset;s relative to its current position, and reports the value of the ink at the new 
location. 


Associated keywords: MOV E, MOVER, TEST, XPOS, YPOS 


THEN 
(See IF) 
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TIME 
TIME 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
run 


CLS:REM clock 

INPUT "hour";hour 

INPUT "minute";minute 

INPUT "second";second 
CLS:datum=INT(TIME/300) 

WHILE hour<13 

WHILE minute <60 

WHILE tick<60 
tick=(INT(TIME/300)-datum)+second 
LOCATE 1,1 

PRINT USING "## ";hour,minute,tick 
WEND 
tick=@:second=8:minute=minute+1 
GOTO 50 

WEND 

minute=@:hour=hour+1 

WEND 

hour=1 

GOTO 60 


FUNCTION: Reports the elapsed time since the computer was last switched-on or 
reset, (excluding periods when reading or writing to disc). 


Each second of real time is equal to the returned value: TIME / 300. 


Associated keywords: AF TER, EVERY, МЕМО, WHILE 


TO 
(See FOR 


Complete 


) 
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TRON 

TROFF 

TRON 
10 TROFF:PRINT:PRINT "TRace-OFF" 
20 FOR n=1 TO 8 
30 PRINT "program running":NEXT 


40 IF f=1 THEN END 
50 TRON:PRINT:PRINT "ТВасе-ОМ" 
60 f-1:G0TO 20 


COMMAND: Traces the execution of a program Бу printing each line number before 
carrying it out. The line number appears inside square brackets [ 1. 


TRON switches T Касе ON; T RO F F switches T Race OF F. 


The facility is particularly useful for studying the sequence of program line execution 
just before an error occurs. 


Associated keywords: none 


UNT 


UNT (address expression» ) 


PRINT UNTC&FF66) 
-154 


COMMAND: Returns an integer in the range —32768 to +32767 which is the 
twos-complement equivalent of the unsigned value of the «address expression». 


Associated keywords: C INT, FIX, INT, ROUND 


UPPER$ 


UPPERS (string expression» ) 


10 CLS:a$="my, how you've grown!" 
20 PRINT UPPERSCa$) 
run 


FUNCTION: Returns a new string expression which is a copy of the specified «string 
expression» but in which all alphabetic characters in the range A to Z are converted to 
upper case. The function is useful for processing input which may come in mixed 
upper/lower case. 


Associated keywords: LOWERS 
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USING 
(SeePRINT USING) 


VAL 


VAL (¿string expression: ) 


10 CLS:PRINT "I know my times tables 
20 PRINT:PRINT "Press a key (1 to 9)" 
30 a$-INKEYS:IF a$-"" THEN 30 

40 n-VAL(Ca$):1F n«1 OR n>9 THEN 30 
50 FOR x-1 TO 12 

60 PRINT n;"X";x;"z";n*x 

70 NEXT:GOTO 20 

run 


FUNCTION: Returns the numeric VA Lue, (including any negative sign and decimal 
point) ofthe first character(s) in the specified «string expression». 


If the first character is not a number, then 0 is returned. If the first character is a 
negative sign or decimal point followed by non-numeric characters, a “Type 
mismatch'error(13) will bereported. 


Associated keywords: S T R $ 


VPOS 


VPOS ( #<stream expression: ) 


10 MODE 1:BORDER @:LOCATE 8,2 

20 PRINT "use cursor up/down keys" 

30 WINDOW 39,39,1,25:CURSOR 1,1 

40 LOCATE 1,13 

50 IF INKEY(@)<>-1 THEN PRINT CHR$(11); 
60 IF INKEY(2)<>-1 THEN PRINT CHR$(10); 
70 LOCATE #1,3,24 

80 PRINT #1,"text cursor "; 

90 PRINT #1,"vertical position ="; 

100 PRINT #1,VPOS(#0):GOTO 50 

run 


FUNCTION: Reports the current Vertical POSition of the text cursor relative to the 
top of the text window. The «stream expression» MUST be specified, and does NOT 
default to 40. 


Associated keywords: POS, WINDOW 
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WAIT 
WAIT port number, , «mask-[ , inversion] 
WAIT &FF34,20,25 
COMMAND: Waits until the specified I/O «port number» returns a particular value 
in the range 0 to 255. BASIC loops whilst reading the I/O port. The value read is 


eXclusive ОКей with the «inversion: and then ANDed with the «mask: until a 
non-zero result occurs. 


BASIC will wait indefinitely until the required condition occurs. 
Not a command to be used by the unwary. 


Associated keywords: INP, OUT 


WEND 
WEND 
WEND 


COMMAND: Marks the end of the body of program which is to be executed within the 
WHILE loop. WEND automatically selects the WH I LE command it is to be associated 
with. 


Associated keywords: TIME, WHILE 


WHILE 
WHILE «logical expression» 


10 CLS:PRINT "Ten second timer":t-TIME 
20 WHILE TIME«t*3000 

30 SOUND 1,0,100,15 

40 WEND:SOUND 129,40,30,15 

run 


COMMAND: Repeatedly executes a body of program while a given condition is true. 
The WHILE command defines the head of the loop, and specifies the condition in the 
dogical expression». 


Associated keywords: TIME, WEND 
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WIDTH 
WIDTH integer expression, 
WIDTH 40 


COMMAND: Tells BASIC how many characters per line are to be printed when a 
printer is connected. BASIC will then send the extra carriage return/line feed at the 
appropriate time. 

The computer assumes a default value of 13 2 unless a WIDTH command is specified. 


The command WIDTH 255 suppresses the extra carriage return/line feed 
altogether, allowing printing to be ‘line wrapped’ by the printer. Note that carriage 
return/line feed will still be generated by a PRINT command that isn’t terminated 
by asemicolon or comma. 


Associated keywords: POS 
WINDOW 


WINDOW[#-stream expression, , | left» , right» , top» , «bottom» 


10 MODE @:BORDER Q:REM testcard 

20 INK @,@:INK 1,25:INK 2,23:1МК 3,21 
30 INK 4,17:1NK 5,6:INK 6,2:INK 7,26 
40 PAPER 0:CLS 


50 PAPER INDOW 2,4,1,18:CLS 
60 PAPER INDOW 5,7,1,18:CLS 
70 PAPER INDOW 8,10,1,18:CLS 
80 PAPER INDOW 11,13,1,18:015 


90 PAPER 5:WINDOW 14,16,1,18:CLS 
100 PAPER 6:WINDOW 17,19,1,18:CLS 
110 PAPER 7:WINDOW 2,19,19,25:CLS 
120 GOTO 120 

run 


COMMAND: Specifies the dimensions of a text stream (WINDOW) on the screen. The 
values of the parameters <left»,«right>,.top», and «bottom» should correspond with the 
inclusive screen character locations consistent with the screen MODE in use. 


If the «stream expression» is not specified, BASIC defaults to stream #0. 


Further information concerning windows will be found in part 2 of the chapter 
entitled ‘At your leisure....’. 


Associated keywords: WINDOW SWAP 
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WINDOW SWAP 


WINDOW SWAP stream expression: , «stream expression, 


10 MODE 1:1NK 1,24:INK 2,9:1NK 3,6 
20 WINDOW 21,40,13,25:PAPER 3 

30 WINDOW /1,1,20,1,12:PAPER 41,2 
40 CLS:PRINT " window number 0" 
50 CLS #1:PRINT #1," window number 1" 
60 LOCATE 1,6 

70 PRINT " red window (0)";SPC(2) 
80 LOCATE #1,1,6 

90 PRINT #1," green window (1)" 
100 FOR t=1 TO 1000:NEXT 

110 WINDOW SWAP 0,1:GOTO 60 

run 


COMMAND: Swaps the text window specified in the first «stream expression» with 
that specified in the second «stream expression». 


Both «stream expressions must be specified, and in this case should NOT be preceded 
by a # stream director. 


The command may be used to re-direct messages produced by BASIC, which are 
normally always sent to stream #0. 


Further information concerning windows will be found in part 2 of the chapter 
entitled ‘At your leisure....'. 


Associated keywords: WINDOW 


WRITE 
WRITE [#<stream expression, , ][ write 115] 


10 REM write variables onto disc 

20 INPUT "give me a number variable";a 
30 INPUT "give пе a string variable";a$ 
40 OPENOUT “datafile” 

50 WRITE #9,a,a$ 

60 CLOSEOUT:PRINT "Data saved onto disc" 


COMMAND: Writes the values of the items in the “write list» to the stream specified 
in the «stream expression». Items written will be separated by commas; strings will be 
enclosed by double-quotes. 
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In this example the values of the variables which you input, are written to stream #9 
(the disc stream). 


(To recall the values of those variables from disc, it would be necessary to use a 
program such as follows:) 


10 REM retrieve variables from disc 
20 OPENIN "datafile":INPUT #9,a,a$ 
30 CLOSEIN:PRINT "The 2 values are:" 
40 PRINT:PRINT a,a$ 

run 


Associated keywords: INPUT, LINE INPUT 


ХОК 


«argument: XOR «argument» 


IF "alan"«"bob" ХОВ "dog"»"cat" THEN PRINT "correct" ELSE PRINT "wrong" 
wrong 


IF "bob"«"alan" ХОВ "cat"»"dog" THEN PRINT "correct" ELSE PRINT "wrong" 
wrong 


IF "alan"«"bob" XOR "cat"»"dog" THEN PRINT "correct" ELSE PRINT "wrong" 
correct 

PRINT 1 XOR 1 

o 

PRINT Ø XOR Ø 


2 
PRINT 1 XOR Ø 
1 


OPERATOR: Performs bit-wise boolean operation on integers. Result is 1 unless both 
argument bits are the same - eXclusive OR. 


Further information concerning logic will be found in part 2 of the chapter entitled 
‘At your leisure....’. 


Associated keywords: AND, OR, NOT 
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XPOS 
XPOS 
10 MODE 1:DRAW 520,200 
20 PRINT “graphics cursor X POSition="; 
30 PRINT XPOS 
run 


FUNCTION: Reports the current horizontal (X) P 0 Sition of the graphics cursor. 


Associated keywords: MOVE,MOVER, ORIGIN, YPOS 


YPOS 
YPOS 
10 MODE 1:DRAW 320,200 
20 PRINT "graphics cursor Y POSition="; 
30 PRINT YPOS 
run 


FUNCTION: Reports the current vertical (Y) POSition ofthe graphics cursor. 
Associated keywords: MOVE, MOVER, ORIGIN,XPOS 


ZONE 
ZONE «integer expression» 


10 CLS:FOR z=2 TO 20 
20 ZONE z 
30 PRINT 
run 


","Х ZONE 


COMMAND: Changes the width of the print zone (specified in PRINT statements by 
using a comma between print items). The default setting of the print zone is 13 
columns, but may be changed as specified in the integer expression» in the range 1 to 
255. 


Associated keywords: PRINT 


Chapter 3 Page 92 Complete List of Keywords 


Using Discs and Cassettes 


Part 1: Discs 


Making working discs 


This section discusses how to make discs to use from day to day, 
and introduces some facilities of CP/M and its Utility programs. 


Subjects covered: 


Making a backup of the Master Discs. 
Getting started with CP/M Plus. 

Use of Help files. 

Single and Multiple drive operation. 
Copying files with PIP. 

Operating with a BASIC only disc. 

Turnkey AMSTRAD BASIC application. 
Installing a Turnkey CP/M Plus application. 
Getting Started with GSX. 

Operating with CP/M 2.2. 


+ HH HHH HH 


Part 7 of the Foundation course described how to format a blank system disc, which 
youcan use for BASIC and games, as well as CP/M. 


Part 10 of the Foundation course showed you how to make exact copies of discs with 
the D 1S СКІТЗ program (on Side 1 of your system discs package). 


This section considers how to use discs with the programs that you want on them. 
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Backup Master Discs 


It is most important to make a copy of the Master System/Utility discs provided with 
your computer, and keep the originals safe - they will be very costly to replace if 
damaged! Remember that each of the discs supplied has two sides, making four sides 
in total. Every disc, in fact, has two sides and you are free to use either side for any 
purposes. 


Side 1 is the most important - it contains the master copy of CP/M Plus and a set of 
utility programs for handling discs. Side 2 has files for assembler programmers, and 
Side 3 contains Dr. LOGO, ‘Help’ files, and GSX (more of which later!). Side 4 
contains the CP/M 2.2 and the Dr. LOGO previously available for the AMSTRAD 
models CPC664 and CPC464--DDII; these programs are provided for compatibility 
reasons, just in case you need them. Normally they are not used. 


You should regard your copies of the master discs as a ‘library’ of programs. 
Normally, you will select the program that you require by inserting the ‘library disc" 
on which the program is located, rather than by copying the program onto a blank 
disc and running it from there. 


Once again, it has to be emphasised that the "library discs' that you use, MUST BE 
COPIES, made from the master discs package supplied with the computer. 


Remember that if you are using a new blank disc to copy onto, the DISCKIT3 
program (on Side 1) will format for you as well as doing the copying. 


Getting staxted with CP/M Plus 


You will be used to AMSTRAD BASIC appearing when your CPC6128 is switched on. 
The BASIC will remain in charge until superseded by either a BINary program run 
from AMSDOS (or cassette), or by loading CP/M Plus with the command | CPM. 


Once CP/M Plus is loaded, the CPC6128 will not need to refer to Side 1 again - unless 
of course, you want to run any of the utility programs contained on it. Only the 
start-up disc need be a System disc; all others can be Data-only discs, which have a 
greater storage capacity. 


Running a program is simply a case of inserting the disc containing the required 
program and typing its name. Data used by the program may be on the same, or other, 
dise as the program. CP/M Plus allows the user to swap discs in the same way that 
AMSDOS does. If a number of programs, with perhaps a few utilities, are required on 
one disc for convenience, then use the program called P IP on Side 1, as described 
later in this chapter and in Chapter 5. 
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Maintaining a Hi profile! 


The system disc provides a special file called PROF ILE. SUB, which contains a list 
of commands that are executed automatically when CP/M Plus is started. You may 
then (if you have not already done so) insert a COPY of Side 1 of the System discs, and 
atthe A? prompt, type: 


REN PROFILE.SUB-PROFILE.ENG 


hich creates the file PROF ILE. SUB from PROFILE. ENG. This profile, which 
will be acted on next time CP/M Plus is started, contains the commands: 


SETKEYS KEYS.CCP 
LANGUAGE 3 


...to set the cursor keys to be suitable for typing CP/M commands, and to convert the 
screen output to UK (from USA), effectively making [SHIFT]3 display as а ‘£’ symbol. 


When the keyboard has been set up with the SETKEYS KEYS.CCP command, 
then CP/M command lines can be edited in much the same way as a line of BASIC. 
Full details of SE T KEY S are given in Chapter 5 part 2. 


A Helping Hand 


Side 3 of your system discs package has a special program called 'Help' which is 
designed to be an electronic instruction manual for CP/M Plus utility programs. To 
activate this facility, insert Side 3 and type, at the A> prompt: 


HELP 


апа the ‘Help’ program will prompt you with further questions, guiding you to the 
information you require. 


One Drive or Two? 


When CP/M Plus is first loaded, it detects the number of disc drives attached. This 
number is displayed as part of the sign-on message. Note that the process can be 
fooled ifthe second drive has a disc partially inserted. 


All error messages relating to the disc mechanisms are displayed by default, as a 
banner on the 25th line of the screen. The programs themselves use only the first 24 
lines of the screen. 
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When you have only one built-in drive, the bottom line will also display the message 
‘Drive is А: оғ Әгіуе is 8:’. This is CP/M Plus allowing you to work 
with one physical mechanism as if it was two. You will have two discs to alternate 
between, and the bottom line of the screen will prompt you to insert the correct disc as 
the program requires it. This mode of operation avoids the need to purchase a second 
disc drive, but often requires considerable swapping of discs, which is 
time-consuming and introduces the possibility of human error. 


Copying files from disc to disc 


A standard utility program called PIP (Peripheral Interchange Program) is 
provided to copy files from one disc to another. 


First load P I P from Side 1, by typing at the A> prompt: 
PIP 


... then a new prompt * will show that P IP has loaded correctly. Normally, you will 
copy files from a Source disc (in Drive A :) to a Destination disc (in Drive B :). We 
have already seen that in a single drive system, Drives A: and B: are the same 
mechanism. 


To copy one file, for example SUBMIT . COM, type after the * prompt: 
S7A:SUBMIT.COM 
To copy all the files from the Source disc to the Destination disc use the command: 
B:z*.* 


Toexit from P I P, press [RETURN] at the ж prompt. 


PIP is a very sophisticated program, and further details of its operation appear in 
Chapter 5. 


ABASIC only disc 


As already described, a System disc is normally only used as the disc for starting up 
CP/M Plus. Discs used.for BASIC can therefore be Data-Only discs, which have a 
slightly greater capacity. 


The disc must be formatted using the DIS СКІТЗ program. To copy programs onto 
this type of disc, you must use P I P (loaded from Side 1), or LOAD and SAVE them 
from BASIC. 
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Turnkey AMSTRAD BASIC discs 


Ifyou buy an application program written in AMSTRAD BASIC for the CPC6128, it 
should be ready to operate when you switch on. (The expression ‘turnkey’ comes from 
the days when all small computers had a key-operated power switch). As with the 
Master system discs package supplied with the CPC6128, it is strongly recommended 
that you keep the original safe, and work from a copy. 


Turnkey CP/M discs 


The CP/M operating system allows you to load and run an immense library of 
software which has already been written for personal computers that support CP/M. 
The fundamental ‘logic’ of these programs has already been devised; all that is 
required to use them on your 6128 is to establish them on a suitable disc, and maybe 
to inform them of the particular method that the 6128 uses to operate the screen. 


A set of programs on one disc designed to fulfil a specific application is called a 
‘package’, These packages are normally designed to work on a large range of different 
computers, each of which has its own size of screen and way of moving the cursor 
around. 


The 6128 is provided with a built-in “terminal emulator' when running CP/M Plus 
programs, and the characteristics are different from the Control Codes supported by 
BASIC. 


Sometimes the package that you buy will have already been 'installed' for the 
AMSTRAD system, or cater for it by offering an installation compatible with the 
6128. If available, simply follow the instructions provided with the software for a 
Zenith Z19/Z29 protocol. If the package does not have this, nor a specific AMSTRAD 
variant built in, then the section ahead entitled ‘Configuring a CP/M Program’ 
indicates some of the commands that can be sent to the 6128 screen to produce the 
sorts of effects that packages require. Normally, the installation, or customisation, 
procedure will involve typing in the relevant codes when requested to. Again, follow 
the instructions provided with the package. 


The software you have purchased must be on a disc suitable for use in this system. 
Almost every different computer uses a different form of disc. Although many have 
the same size of disc, this does not necessarily mean that there is any compatibility 
between one and another in the information contained on them. Ask your supplier for 
an AMSTRAD 3 inch version. 
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Creating a Turnkey CP/M disc 


As well as the application program itself, it is often useful to have the utilities 
SETKEYS.COM and perhaps SUBMIT.COM (with their associated instruction 
files) on the Turnkey disc. 


PIP can be used to transfer the . COM files and also to make the instruction file for 
SUBMIT. In this latter mode, P I P is effectively a simple one-line-at-a-time editor. 
For example, the file L0G03. SUB on Side З could have been created with the 
following commands: 


(Insert System disc, Side 1 in Drive A :). Type: 
PIP 
(Remove System disc, insert destination disc). Type: 


L0G03.SUB=CON: 
SETKEYS KEYS.DRL 
ICONTROL]J L0G03 
[CONTROL]Z 


Configuring a CP/M Program 


The CPC6128 supports a wide range of control codes suitable for customising a 
software package to run with CP/M. Most data-processing and many other packages 
require to be able to print messages at any part of the screen, to accept input from any 
part of the screen and to generally understand cursor controls. 


If your package has already been customised for the AMSTRAD system, then you 
need not concern yourself further. 


Configuring the Output from the package 


The installation procedure for a package will normally consist of running a special 
program (often called INSTAL) which, if it does not support either a 219/229 type of 
terminal or the CPC6128 specifically, will ask a number of questions about the 
parameters of the 6128 screen. The answers should be derived from the table 
overleaf, which is an extract from Chapter 7 part 15. 
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Control 


Codes Hex Decimal Operation 

[BEL] &07 7 Sound Bleeper. 

BS] &08 8 Move cursor back one position. 

LF] &0A 10 Movecursor down one line. 

CR] &0D 13 Move cursor to left edge of window on 
current line. 

ESCIA &1В 841 27 65 Movecursor up one line. 

[ESCIC &1B &43 27 67 Movecursor forward one position. 

ESCIE &1В &45 27 69 Clear screen. 

[ESC]H &1B &48 27 72 Home cursor. 

Е5СМ &1B &4A 27 74 Clear from and including the current 
cursor position to end of screen. 

[ESCIK &1B &4B 27 75 Clear from and including the current 

Я cursor position to right edge of screen. 

ESCIL &1B «АС 27 76 Insert Line. 

Е5СІМ &1B &4D 27 77 Deleteline. 

IESCIN &1B &4E 27 78 Delete character at cursor position. 

ESCIY &1B &59 27 89 Move cursor to given position on 

“> a © screen. «с» iscolumn + 32, 

a» isrow + 32. 

ESC]d &1B &64 27 100 Сіеагікот start of screen to and 
including the current cursor position. 

ESC]o &1B &6F 27 111 Clear from left edge of screen to and 
including the cursor position. 

ESC]p &1В &70 27 112 Enterinverse video. 

[ESC]q &1B &71 27 113 Exitinverse video. 


Configuring the Input to the package 


The programs in the package will expect to be able to interrogate the keyboard. Most 
of the keys on the 6128 keyboard return standard values except for the cursor keys. It 
is possible to use the SETKEYS utility to re-define the codes produced by the 
keyboard, although where possible, it is preferable for each different package to be 
configured to accept standard values. 


It is an unfortunate fact that there is not a general understanding between different 
items of software as to which keystroke to use for control functions. Printable 
characters, and ‘space’, [TAB] and [RETURN] are fairly universal, but disagreement 
sets in with ‘backspace’, and from there-on, matters get worse! Compare for example, 
the different codes expected for the operation ‘move cursor to start of line’: 


CP/M Commands require: [CONTROL]B 
Dr. LOGO requires: [CONTROL]A 
апаа typical wordprocessor might require: [CONTROL]Q 5 
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Three useful sets of keyboard codes are provided as standard. Each configuration can 
be called up from files contained on Side 1 of your system discs package: 


SETKEYS KEYS.CCP 


....already described as one of the commands automatically sent by PROFILE. SUB, 
will set up the keyboard suitably for CP/M commands. 


Starting a Turnkey CP/M Package 


Normally, all that is required is to type the package’s main program name at the A> 
prompt. For example to run a wages program called PAYROLL. COM, simply type: 


PAYROLL 
If any configurations require to be set up then perhaps a S UBmit file will be provided. 
An example of this is the file LOGOS. SUB on Side 3. This is invoked with the 
command: 

SUBMIT 10603 
Тһе contents of the file can be seen by typing: 

TYPE LOGO3.SUB 
».. Which gives: 

SETKEYS KEYS.DRL to re-assign the keyboard. 


L0G03 ...torun the Dr. LOGO program. 
SETKEYS KEYS.CCP ....to restore the keyboard. 


Autostarting a Turnkey CP/M Package 


It is possible to arrange for the CP/M Plus operating system to automatically run a 
particular program from the start-up system disc. This is performed by including the 
program's name at the end of the PROF ILE . SUB file on that disc. 
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Getting started with GSX 


GSX is a Graphics System eXtension which allows a CP/M program to output 
graphics as well as text. It is used to draw such things as bar and pie charts, and write 
headings in alternative typestyles and sizes. On the next page is a reproduction of 
actual output illustrating this facility. GSX allows output to the screen, to a printer, 
or toa pen plotter. 


The GSX itself does not have the ability to draw pictures, any more than CP/M сап do 
word processing; a dedicated applications program is required. The example was 
drawn using the Digital Research program ‘DR Graph’. What GSX does do, however, 
is provide standard facilities for screens, printers, and plotters, so that applications 
programs can be moved from one machine to another with a minimum of 
re-installation. 

To create a disc suitable for running GSX programs, copy (from Side 3) the files 
GSX.SYS, ASSIGN.SYS, and the required device drivers, (together with the 
application program itself) onto a blank formatted disc, using PIP. The file 
ASSIGN.SYS contains a 'recipe' of up to three output device drivers, in reverse 
order of their size: 


21a:ddfxlr7 ; Epson 7 bit printer 
11a:ddhp7470  ,репрїоМег 
01а:44то4е2 ; screen in mode 2 
@2a:ddmode1 screen in mode 1 
@3a:ddmode® ; screen in mode 0 


The numbers tell GSX what type of device driver each is - (Printer/Plotter/Screen). 
Only one device driver at a time is actually loaded into the same area of memory, 
which is why GSX needs to know how big the largest is first, in order to allocate 
enough space. 

A selection of drivers is provided for various 6128 screen modes, and for standard 
printers, The file DRIVERS . GSX contains a summary of the ones provided with the 
6128. You should read this file by inserting Side 3 and after the A> prompt, typing: 


TYPE DRIVERS.GSX 


in order to select suitable device drivers. 


Most applications programs will include a GSX loader so all that you need do is type 
the program name at the A? prompt. If your application does not have the GSX loader 
installed, then copy the file GENGRAF . COM (from Side 3) onto your GSX working 
disc, and type: 


GENGRAF YOURFILE 


...where YOURFILE. COM is the un-installed application. The file GENGRAF . COM 
can now be ERAsed, as YOURFILE . COM now includes the GSX loader. 
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Test Diagram 
Ken's wages in pence 


Fill 2 100.01 


р” 100.00 #111 1 
100.00 Fill 0 
4111 7 150.00 — 


Anexample of GSX printer output 


Working with CP/M 2.2 


In contrast to CP/M Plus, CP/M 2.2 (which is a previous version) is very strict about 
changing discs, and often requires you to re-load parts of the operating system from a 
System Disc in Drive A: particularly when the A> prompt is returned to after 
running a program. It is therefore normal to use System Discs. The single drive file 
copier F I LE COPY has tobe used instead of P I P if you donot have a second drive. 


It is only recommended that you use CP/M 2.2 if you have software already running 
on AMSTRAD models СРС664 or CPC464+DDI1, whose software is not, in some 
way, compatible with CP/M Plus. 


Warning - Some CPC664/CPC464+DDI-1 CP/M 2.2 Applications Software 
contains certain installation-specific instructions, and will not operate with 
CP/M Plus. In these cases it will be necessary to use the CP/M 2.2 contained on 
Side 4 of your system discs package. 
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Part 2: Cassettes 


If you wish to use a cassette unit connected to the system, (as described in part 2 of the 
Foundation course), a number of the BASIC commands will operate differently when 
the computer is set to cassette operation by the command | TAPE. Various software 
messages and prompts will appear on the screen which are not seen during normal 
discoperation. 

NOTE - If your cassette unit's FAST-FORWARD and REWIND switches operate 
under remote control, then it will be necessary during these operations to either 
remove the REM (remote) plug from your cassette unit, or to type in | TAPE: CAT 
inorder to activate the cassette motor. Pressing [ESC] cancels this operation. 

Unlike discs, filenames on cassette do not have such strict rules concerning their 
form. They may be up to 16 characters long, and may contain embedded spaces and 
punctuation marks. In some instances, they may be omitted altogether. 

The following list describes the differences in the operation of each of these BASIC 
commands. Descriptions of the commands themselves will be found in the chapter 
entitled ‘Complete list of AMSTRAD CPC6128 BASIC keywords’. 


CAT 
You will be instructed: 


Press PLAY then any key: 


... whereupon you should press the PLAY button on your cassette unit, followed by 
one of the keys on the computer. The tape in the cassette will start turning, and the 
computer will display the names of each of the files that it finds (in sequence) on the 
cassette. 


Each of the blocks of a file will be displayed, followed by a single character which 
indicates what sort of file it is: 


$ isanunprotected BASIC file 


% isa Protected BASIC file 
* isan ASCII file 
&  isaBinary file 

The computer displays: 


ок 


аё the end of the line if it has read the file successfully, indicating that the file 
would have loaded into memory, had the computer attempted to do so. 


The CAT function will not affect the program currently in the computer's memory. 
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Ifa cassette file has been saved without a specified name, САТ will display it as: 
Unnamed file 


CAT is terminated by pressing [ESC]. 


Read errors 

If the above file-reading messages are not displayed, or you get the message: 
Read error a or.. Read error b 

‚оп the screen, this indicates either of the following: 


1. Your cassette unit is not correctly connected to the computer’s TAPE socket (see 
part 2 of the Foundation course). 


2. The VOLUME or LEVEL control on your cassette unit is not correctly adjusted. 
3. The tape quality is poor, or the tape is worn. 


4. Тһе tape has been subjected to a magnetic field by being placed close to a 
loud-speaker, television set, etc. 


5. You are attempting to read a cassette which has not been created for use on 
AMSTRAD computer systems. 


CHAIN 

CHAIN MERGE 
LOAD 

MERGE 

RUN 


You need not specify the filename if you wish the first suitable file on the cassette to 
be loaded. Example commands: 


CHAIN "" 
CHAIN "",190 


CHAIN MERGE Ж 
CHAIN MERGE ',100 
CHAIN MERGE "",10Q,DELETE 30-70 
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LOAD "" 
LOAD "",&1F40 


MERGE "" 


RUN "" (Note that holding down the [CONTROL] key then pressing the 
[ENTER] key, executes this command. Use when running cassette 
based software, after typing | TAPE). 


You will be instructed: 
Press PLAY then any key: 


... whereupon you should press the PLAY button on your cassette unit, followed by 
one of the keys on the computer. The tape in the cassette will start turning, and the 
computer will load the file to be processed. 


The screen will display the loading messages: 
Loading FILENAME block 1 


«and as many other block numbers as there are in the file, until the file is loaded. 


If the first character of the filename is ! then the above messages will be suppressed, 
and you will not be required to ‘press any key’ for the file to load. (You must make sure 
that the PLAY button on your cassette unit is down.) If your programs use the ! mark 
and are also required to run on disc, the ! mark will be ignored during disc operation 
(when the disc filename is being read). Note that the ! mark does NOT occupy one of 
the character positions in the cassette or disc filename. 


Abandoning the command using the [ESC] key produces the error message on the 
screen: 


Broken in 


If the file does not successfully load, read the paragraph entitled ‘Read errors’ earlier 
in this section. 


WARNING: The internal disc interface occupies a small portion of the memory that in 
some cases, was used by commercial writers of cassette based software for the model 
CPC464. These cassettes will not operate properly with the CPC6128 + Cassette 
unit. 
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EOF 
POS(#9) 


'These functions operate on cassette as per disc. 


INPUT #9 
LINE INPUT #9 
OPENIN and CLOSEIN 


You need not specify the filename if you wish the first suitable file on the cassette to 
be loaded. Example command: 


OPENIN "" 
You will be instructed: 
Press PLAY then any key: 


...whereupon you should press the PLAY button on your cassette unit, followed by 
one of the keys on the computer. The tape in the cassette will start turning, and the 
computer loads the first 2K bytes of the file into a portion of the memory called the 
‘file buffer’. Input is taken from the file buffer until it is empty, and the computer 
again prompts: 


Press PLAY then any key 


гапа loads the next 2K bytes from the file. 
The screen will display the loading messages: 


Loading FILENAME block 1 


...and other block numbers in turn, as the file is loaded. 

If the first character of the filename in the OPENIN command is ! then the above 
messages will be suppressed, and you will not be required to ‘press any key’ for the file 
to load. (You must make sure that the PLAY button on your cassette unit is down.) If 
your programs use the ! mark and are also required to run on disc, the ! mark will be 
ignored during disc operation (when the disc filename is being read). Note that the ! 
mark does NOT occupy one of the character positions in the cassette or disc filename. 


Abandoning file input using the [ESC] key produces the error message on the screen: 
Broken in 


If the file does not successfully load, read the paragraph entitled ‘Read errors’ earlier 
in this section. 
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LIST #9 

OPENOUT and CLOSEOUT 
PRINT #9 

WRITE #9 


You need not specify the filename if you wish the file to be saved as an Unnamed 
f i Le. Example command: 


OPENOUT "" 


The first 2K bytes of the file to be saved to cassette will first be written into a portion 
of the memory called the ‘file buffer’. When the file buffer is full, you will be 
instructed: 


Press REC and PLAY then any key: 


.. whereupon you should press the RECORD and PLAY buttons on your cassette unit, 
followed by one of the keys on the computer. The tape in the cassette will start 
türning, and the computer saves the contents of the file buffer. The computer then 
refills the file buffer with the next 2K bytes ofthe file, and again prompts: 


Press REC and PLAY then any key: 


...and saves the next 2K bytes to cassette. 

If the file buffer is partly full and the command CLOSEOUT is encountered, the 
computer will save the remaining contents of the file buffer to cassette, issuing the 
prompt: 


Press REC and PLAY then any key: 
Thescreen will display the saving message: 
Saving FILENAME block «x 


If the first character of the filename in the 0 PENOUT command is ! then the above 
messages will be suppressed, and you will not be required to 'press any key' for the file 
to save. (You must make sure that the RECORD and PLAY buttons on your cassette 
unit are down.) If your programs use the ! mark and are also required to run on disc, 
the ! mark will be ignored during disc operation (when the disc filename is being 
read). Note that the ! mark does NOT occupy one of the character positions in the 
cassette or disc filename. 

Abandoning file output using the [ESC] key produces the error message on the 
Screen: 


Broken in 
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Successfulsaving 


Toensure that the file is successfully saved: 
1. Check that your cassette unit is correctly connected to thé computer's TAPE 
socket (see part 2 of the Foundation course). 


2. Check that the RECORD or LEVEL control on your cassette unit is correctly 
adjusted. 


3. Check that you are not using inferior quality cassettes or C120s. (AMSOFT C15 
cassettes are recommended.) 


4. Make sure that your cassettes are not subjected to magnetic fields by being 
placed close to a loud-speaker, television set, etc. 


5. Before deleting a program from the memory after saving it, CA Talog the tape, 
to verify that the program has been saved successfully. 


6. Ensure that your cassette unit is periodically maintained, and that the tape 
heads are regularly cleaned. 


SAVE 


You need not specify the filename if you wish the program to be saved as an 
Unnamed fi le.Example command: 


SAVE "" 
You will be instructed: 
Press REC and PLAY then any key: 
... whereupon you should press the RECORD and PLAY buttons on your cassette unit, 


followed by one of the keys on the computer. The tape in the cassette will start 
turning, and the computer will save the program. 


The screen will display the saving messages: 
Saving FILENAME block 1 


гапа as many other block numbers as there are in the file, until the file is saved. 


Chapter 4 Page 16 Using Discs and Cassettes 


If the first character of the filename is ! then the above messages will be suppressed, 
and you will not be required to ‘press any key’ for the file to be saved. (You must make 
sure that the RECORD and PLAY buttons on your cassette unit are down.) If your 
programs use the ! mark and are also required to run on disc, the ! mark will be 
ignored during disc operation (when the disc filename is being read). Note that the ! 
mark does NOT occupy one of the character positions in the cassette or disc filename. 
Abandoning the command using the [ESC] key produces the error message on the 
screen: 


Broken in 


Read the paragraph entitled ‘Successful saving’, earlier in this section. 


SPEED WRITE 


The command operates only on cassette, and can be issued while the computer is set 
to disc operation. 


Error messages 


Note that error messages 7, 21, 24, 25, 27, and 32 (see part 6 of the chapter entitled 
‘For your reference....’) will be generated during cassette operation, if appropriate. 


AMSDOS external commands 


Input and output direction to cassette or disc, is effected by the commands: 


| TAPE (which can be sub-divided into | TAPE. IN and | TAPE. OUT) 
I DISC (which can be sub-divided into |DISC.INand IDISC.OUT) 


All external commands: 


1А 

IB 
1СРМ 
IDIR 
IDRIVE 
TERA 
IREN 
105ЕВ 


....are executed to disc, regardless of whether cassette operation has been selected. 
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Chapter 5 
AMSDOS and CP/M 


Part 1: AMSDOS 


Subjects covered: 


ЖЖ ХЭ Ot tt OE 


Introduction to AMSDOS 

Disc directory 

Changing discs 

Filenames and filetypes 
AMSDOS headers 

Filenames on 2 drives 

Wild cards 

Example program using AMSDOS commands 
Summary of AMSDOS commands 
Manipulating and copying files 
Reference guide to error messages 


Introduction 


AMSDOS extends the AMSTRAD BASIC supplied with your computer by providing 
a number of external commands, which are identified by the preceding | (bar) 


symbol. 


AMSDOS allows the user to change discs freely, as long as no files are in use - in 
which case an error message will be displayed and there could be a loss of data if the 


open file was being written to. 


AMSDOS and CP/M 


Chapter 5 Page 1 


Disc directory 


Every disc has two sections, the directory and the data area. The directory contains a 
list of all the filenames and a ‘map’ of whereabouts on the disc each file is to be found. 
AMSDOS or CP/M can calculate the size of a particular file by inspecting its directory 
entry. Calculation of the amount of space left on a disc is made by adding up all the 
files in the directory and seeing how much remains unused. 


Whenever a file is read, its directory entry is examined, giving the disc location. 
When a new file is created, free space is allocated to it, and when a file is erased the 
space is relinquished. The directory works in units of 1K and can have up to 64 
different entries. Large files will have one entry for every 16K although normally 
this fact is hidden from the user. 


Changing discs 


Under AMSDOS (and CP/M Plus) a disc may be changed, or removed, whenever the 
drive is not being accessed and neither the input nor output files are open on that 
drive. Unlike CP/M 2.2 there is no need to ‘log in’ a disc. 


Changing a disc while it is still being written to, may corrupt the data on the disc. Ifa 
disc is changed while there are still files open on it, then as soon as AMSDOS detects 
this, all the open files on the drive will be abandoned and an error message produced. 
Any data yet to be written will be lost and the latest directory entry will not be 
written to disc. However, AMSDOS can only detect this change when it reads the 
directory, which it does every 16K ofthe file (and whenever a file is opened or closed). 
Thus, potentially 16K of data could be corrupted by changing a disc while there are 
still files open on it. 


AMSDOS filenames and filetypes 


It is standard practice to name disc files in such a way that there is an indication of 
which ‘type’ they are. This naming convention DOES NOT ‘force’ the computer to use 
the file in any particular way, however some programs will only accept a file when it 
has the correct type of name. AMSDOS will accept any type of name, but will search 
dd E for certain file types if not otherwise specified. (See ‘AMSDOS headers’ 
ahead.) 
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Construction of filenames 


The filename is constructed from two parts with a . (dot) separating them. The first 
part can be up to 8 characters long, and the second up to 3 characters long. Thus for 
example: 'ROINTIME.DEM","DISCKIT3.COM",and "DISC.BAS" areall 
legal filenames. 

The second part of the filename is called the filetype. Filenames and filetypes can be 
composed of a mixture of letters and numbers, but cannot have embedded spaces or 
punctuation marks. Some common conventional filetypes are: 


- “space, Unspecified type. May be a data file created by an OPENOUT 
"filename" or BASIC program saved by AMSDOS using SAVE 
"filename" , A style. 


-ВА5 BASIC program saved by AMSDOS using SAVE "filename" or 
SAVE "filename." , Por SAVE "filename: . BAS" „А styles. 


.BIN Program or area of memory saved by AMSDOS using SAVE 
" filename." ‚В , binary parameters: style. 


.BAK Old version of a file, where AMSDOS or a utility program has saved a 
newer version of a file using an existing name. This allows the user to 
back-track to the previous (BAcK-up) version if required. 

-COM Command file. CP/M utility programs are all of this filetype. 


.808 Instruction file бог the CP/M SUBMIT program. 


AMSDOS headers 


AMSDOS automatically SAVEs files with a suitable type identifier, so it is not 
normally necessary to specify one unless you wish to override the defaults described 
previously. BASIC program files, protected BASIC program files and binary files are 
saved to the disc with a header record, so that the AMSDOS command: 


LOAD "filename" 
...can recognise them and take the appropriate action. If the AMSDOS command 


LOAD cannot find a header, it assumes that the file is a program in ASCII, i.e. plain 
text. 
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Notwithstanding the contents of the header, when AMSDOS is asked to LOAD a file 
where no filetype is specified, then it first looks for a file of type: 


+ «space» 
If that does not exist, it looks for a file of type: 
-ВА5 
... then finally, one of type: 
«BIN 


This allows the user to abbreviate the filename, i.e. not needing to specify the 
filetype, in most instances. 


А disc data file started with the command OPENOUT and subsequently written to, 
will have no header, and the contents will be in ASCII, i.e. plain text, from the BASIC 
WRITE, PRINT or LIST commands. The disc command OPENIN will search for 
files in the same order as LOAD, ifno file type is specified. 


Filenames on two drives 


On a 2-drive system, i.e. if an additional drive has been connected to the computer, 
files can exist on either drive. The computer will not automatically look for a file on 
both drives, so the user must specify which drive to use. You can either employ the | A 
or | Bor 1 DRIVE commands (full description ahead) to select one or other drive, and 
then use a normal filename, or alternatively you can override the default drive 
assignment by specifying the drive as an A: or B: prefix to the filename. Thus, for 
example: 


IB 
SAVE "PROG.BAS" 
1A 


and... 


1A 
SAVE "B:PROG.BAS" 


... both save the program to the second drive, Drive B. 
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Similarly, you can override the default US ER number assignment (US ER numbers 
allow you to partition-off the directory)by specifying the US ER number (in the range 
0to15)asaprefix to the filename. Thus, for example: 


LOAD "15:PROG.BAS" 
....and.... 
SAVE "15:PROG.BAS" 


мош load and save the program to the USER number 15 section of the disc, 
whatever the default US ER number setting. (See the | US ER command, ahead.) 


Finally, it is possible to override both default USER and DRIVE settings (in that 
order) by specifying them together in the prefix to the filename, for example: 


RUN "15B:PROG.BAS" 


Wild cards 


It is often required to perform some disc operation (copying, erasing, etc.) on more 
than one disc file. When a filename is specified for a particular operation, AMSDOS 
Scans the disc directory looking for a name which exactly matches. However, it is 
possible (where the command allows) to perform the operation on a group of files 
where some of the characters in the filenames can be ‘don’t care’. This is shown by 
using the character ? in the 'don't care' position. If the whole block (or remainder of 
the whole block) of any part of the filename is ‘don’t care’, then the block of ?’s can be 
abbreviated to the symbol *. Thus, for example, FRED.* is shorthand for 


Finally, the expression * . * means ‘all files’. 


Examples: 


DIRECTORY Match*.BAS | Match FRED?.BAS | Match F*.BA? 


BERT.BAS BERT.BAS 
FRED1.BAS FRED1.BAS FRED1.BAS FRED1.BAS 


FRED2.BAS FRED2.BAS FRED2.BAS FRED2.BAS 
FRED3.BAK FRED3.BAK 
FRED3.BAS FRED3.BAS FRED3.BAS FRED3.BAS 
FINISH.BAS | FINISH.BAS FINISH.BAS 
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Examples of using AMSDOS commands ina 
program 


То give you a good understanding of the AMSDOS commands, we recommend that 
you work through the examples, referring to the relevant sections in the rest of this 
chapter as you go. DO NOT type in, or run, these programs with one of your original 
Master CP/M system discs installed. 


Saving variables and performing a screen dump 


‘The following example program writes to the disc, and you will therefore need a 
blank (formatted) disc or working disc inserted in the drive to run the program. The 
program draws а Union Jack flag, and then saves the whole screen to disc. 


10 dumpfile$-"flagdump.srn" 

20 MODE 1:BORDER 0 

30 DIM colour(2) 

40 FOR 1-0 TO 2 

50 READ colour(i): REM get colours from DATA statement 
60 INK i,colour(i) 


70 NEXT 
80 ON ERROR GOTO 430 
90 OPENIN "param.dat" ' test if file exists 


100 CLOSEIN:ON ERROR GOTO 0 
110 IF errnum-32 AND DERR-146 THEN CLS: 
GOTO 160 ' file doesnt exist 
120 CURSOR 1:PRINT "Do you want to overwrite 
old file? Y/N "; 
130 a$-INKEYS:ON INSTR(" YN",UPPERS(aS)) 
GOTO 130,150,140:GOTO 130 
140 PRINT a$:PRINT "Program abandoned":END 
150 PRINT aS:CURSOR Ø 
160 OPENOUT "param.dat" 
170 WRITE #9,dumpfile$,1: REM save filename and mode 
180 FOR i=0 TO 2 
190 WRITE #9,colour(i): REM save colours 
200 NEXT i 
210 CLOSEOUT 
220 CLS 
230 gp=1:GRAPHICS PEN gp:w=125 
240 х--65:а-240:у-400:5--150:60508 400 


continued on the next page 
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250 :b=150:GOSUB 400 


260 =-2&0:y=&00:b=-150:GOSUB 400 
270 50:60508 400 
280 RAPHICS PEN gp:w=48 


290 
300 


-40:у-400:5--150:60508 400 
50:60508 400 

310 0:5-150:60508 400 
320 у=400:6=-150:6050В 400 
330 ORIGIN 0,0,256,380,0,400:016 
340 ORIGIN 0,0,0,640,150,250:016 
350 ORIGIN 0,0,280,352,0,400:016 
360 ORIGIN 0,0,0,640,168,230:CLG 
370 SAVE dumpfile$,b,&CO00,&4000 
380 DATA 2,26,6 

390 END 

400 MOVE x,y:DRAWR a,b:DRAWR w,Ø:DRAWR -a,-b 
410 MOVE x*a/2*w/2,y*b/2:FILL gp 

420 RETURN 

430 errnum-ERR:RESUME NEXT 

run 


кол ә ә 


Note the use of . DAT and . SRN filetypes. These filetypes are used to remind us of 
what is in the file, rather than because they have any inherent significance. The file 
PARAM. DAT will be an ASCII data file without a header, whilst FLAGDUMP. SRN 
isan AMSDOS binary file with a header. 


Note how the program deliberately tries to read from the file PARAM. DAT before 
writing to it, in order to establish if the file already exists. If the file does NOT exist, 
then an error is reported by BASIC; the error is trapped by the program, and 
execution proceeds without interruption. If the file DOES already exist, then no error 
is reported, and the program automatically asks if you wish to overwrite the existing 
file. 


The particulars of the screen dump, namely the screen mode, palette colours and 
name of file containing the actual information, are saved into a parameter file. This 
illustrates the use of a data file to WRITE program variables (dump f i Le $) and 
constants ( 1), saving them for use by another program. 
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Loading the screen back 


The following example is a general purpose screen dump displaying program, using a 
parameter file to control its action. Note how variables are INPUT from the data file, 
with the EOF function allowing automatic variation in the size of the file. It is 
important that the screen dump displayed by this program was saved with the screen 
in a known position in memory, otherwise the result will be ‘skewed’. This is ensured 
by the saving program executing a MOD E command and thereafter being careful not 
to cause the screen to scroll. 


10 DIM colour(15): REM Provision for 16 colours 
20 OPENIN "param.dat" 

30 INPUT #9, filename$,screenmode 
40 i-0 

50 WHILE NOT EOF 

60 INPUT #9,colour(i) 

70 INK i,colour(i) 

80 і=1+1 

90 WEND 

100 CLOSEIN 

110 MODE screenmode:BORDER Ü 

120 LOAD filenames 

run 


Summary of AMSDOS external commands 


ІК 
1A 


COMMAND: Set default drive to Drive A. Equivalent to | DRIVE with parameter A. 
(The main drive within the computer is Drive A.) 


IB 
IB 


COMMAND: Set default drive to Drive B. Equivalent to | DRIVE with parameter B. 
(The main drive within the computer is Drive A.) 
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ICPM 
ІСРМ 
СОММАМР: Switch to alternative disc environment by loading the operating 


system from a system disc. The operating systems supplied with the computer are 
CP/M Plus and CP/M 2.2. 


This command will fail if the computer's drive does not contain a system disc with 
CP/M. Copies of Side 1 will load CP/M Plus, whereas copies of Side 4 will load the 
older CP/M 2.2 operating system. 


| DIR 
| DIR[,«stringexpression;] 
IDIR,"x.BAS" 


COMMAND: Display the disc directory (In CP/M style), and free space. If the string 
expression is omitted, the wild-card * . * is assumed. 


I DISC 

IDISC 
COMMAND: Equivalent to the two commands | DISC. INand IDISC.OUT 
| DISC.IN 

IDISC.IN 


COMMAND: Use discas file input medium. 


| DISC.OUT 
IDISC.OUT 
COMMAND: Use disc as file output medium. 
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IDRIVE 
I DRIVE, «string expression: 
IDRIVE,"A" 


COMMAND: Set the default drive. This command will fail if AMSDOS is unable to 
read the disc in the requested drive. 


IERA 
| ERA, string expression» 
I ERA," *.BAK" 


COMMAND: Erases all files which match the filename and which are not Read/Only. 
Wild cards are permitted. 


I REN 
I REN , string expression» , string expression: 
I REN,"NEWNAME.BAS" ,"OLDNAME.BAS"" 


COMMAND: Give a file a new name. Any other file with the chosen new name must 
not already exist. Wild cards are not permitted. 


The USER (see IUSER ahead) parameter may be specified within the «string 
expressions to overri any default settings. For example, the command 
КЕМ, "0: МЕМ. ВАЅ" 15:0LD.BAS" will rename the file in USER 15 
called "OLD.BAS", to a file called "NEW.BAS" in USER 0, regardless of any 
default or previously issued settings of | USER. 


I TAPE 
ITAPE 


COMMAND: Equivalent to the two commands | ТАРЕ . IN and | TAPE. OUT. Used 
ifan external cassette unit is connected. 
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| TAPE.IN 
ITAPE.IN 


COMMAND: Use tape as file input medium. Used if an external cassette unit is 
connected. 


| TAPE.OUT 
ITAPE.OUT 


COMMAND: Use tape as file output medium. Used if an external cassette unit is 
connected. 


| USER 
I USER, integer expression» 
IUSER,3 


COMMAND: Determines which of up to 16 individual sections of the directory (in the 
range to 15), disc functions (e.g. CAT, LOAD, | DIR etc.) are to be performed on. 


A file on one US ER number may be transferred to another, by a | REN command. For 
example, |REN,"15:EXAMPLE.BAS","@:EXAMPLE.BAS" transfers a file 
from USER number @ to USER number 15, although the name of the file itself 
(EXAMPLE. BAS) isnot changed. 


Copying files from disc to disc 


AMSDOS files with headers 


It is possible to copy this type of file in the CP/M environment using P I P (see part 2 of 
this chapter). Any file created by AMSDOS which has a header record (see ‘AMSDOS, 
headers’, previously described) will be copyable as a whole - disc to disc - but in 
general the contents of the file will not be understood by any CP/M programs. 


ASCII files 


Files created by AMSDOS without headers are generally in ASCII, and are both 
copyable and understood by CP/M programs. In particular it should be possible to 
exchange ASCII program files, ASCII data files and ASCII text files freely between 
AMSDOS and CP/M programs. 
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Read/Only files 


It is possible, using CP/M, to set any file to be Read/Only, and/or set to a special 
System status in the directory. Such attributes can only be set or reset in the CP/M 
environment, but are honoured by AMSDOS. For further details, see part 2 of this 
chapter (SET utility). 


Copying files between disc and cassette 


‘There is no support in CP/M Plus for accessing tape files and copying them to disc, nor 
for making tape files from disc. If it is required to copy files in this way, then CP/M 2.2 
(on Side 4 of your system discs package) must be used. CP/M 2.2 contains the utilities 
CLOAD and C SAVE for these purposes, and are used as shown in the tables ahead. 


File copying procedures 


The tables ahead cover copying files of all sorts between disc and tape (if connected). 
It assumes that no additional disc drive is connected. It is not possible to copy 
protected BASIC programs to and from tape at all, nor to copy a binary file (such as a 
machine code video game) to or from tape unless the load addresses are known. 
Further details of the programs PIP, CLOAD and CSAVE are given in part 2 of this 
chapter. 


See the next 2 pages for the copying tables.... 
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AMSTRAD BASIC 

COPYTO: on tape * 

AMSTRADBASIC| ІТАРЕ 

on tape * LOAD"FILE" 
«change tapes» 
SAVE"FILE" 
1015С 

Binary 

on tape * 

ASCII ITAPE 

on tape * LOAD"FILE" 
«change tapes: 
SAVE"FILE",A 
IDISC 

AMSTRADBASIC| |ТАРЕ 

ondisc * LOAD "FILE" 
19156 
SAVE"FILE" 

ASCII ITAPE 

on disc LOAD "FILE" 
1015С 
SAVE"FILE",A 

Binary 

on disc * 

* File has a header 


COPY FROM: 


ASCII data Binary 

on tape* on tape * 
H=HIMEM 
ITAPE 
MEMORY :s,-1 
LOAD"FILE" 
«change tapes» 
SAVE"FILE" I 
S, а] 
1015С 
MEMORY H 
«note 2 

«Insert CP/M 2.2 disc, 

ICPM 

CLOAD"FILE",TEMP 

«change tapes» 

CSAVETEMP ,"FILE" 

ERATEMP 

AMSDOS 

motel» 

“Insert CP/M 2.2 disc 

1СРМ 

CLOAD "FILE" 

AMSDOS 
H=HIMEM 
ITAPE 
MEMORY s,-1 
LOAD "FILE" 
1015С 
SAVE"FILE",E 
вр] 
MEMORYH 
«note 2» 


«note 1, Requires free disc space for temporary file "TEMP". 
«note 2» <s is start address of file, 4» is length, a» is optional run address. 
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COPYFROM: 


AMSTRADBASIC ASCIIdata AMSDOS Binary Allother 
COPYTO: ondisc * ondise ondisc * on disc 
AMSTRAD BASIC | Loap"riLE" 
ontape * ITAPE 
SAVE "FILE" 
IDISC 
H=HIMEM 
Binary MEMORY в-1 
* LOAD"FILE" 
олтаро ITAPE 
SAVE" FILE", B, 
яв ^o, m] 
IDISC 
MEMORY H 
note 2» 
ASCII LOAD" FILE" “Insert CP/M 2.2 disc, “Insert CP/M 2.2 disc, 
on tape * I TAPE 1СРМ 1СРМ 
SAVE "FILE" A CSAVE FILE CSAVE FILE 
10156 AMSDOS AMSDOS 
-or- «note 3, 
“Insert CP/M 2.2 disc: 
ЇСРМ 
CSAVEFILE 
АМ5005 
AMSTRADBASIC | LOAD "FILE" 
on disc * “change discs: 
SAVE"FILE" 
-or- 
“Insert CP/M Plus disc, 
1СРМ 
PIP B:=FILE 
АМ5005 
ASCII LOAD "FILE" “Insert CP/M Plus disc, 
on disc “change discs» 1СРМ 
SAVE"FILE",A PIP B:-FILE 
AMS DOS 
AMSDOS Binary «Insert CP/M Plus disc. 
on disc * 1СРМ 
PIP B:=FILE 
AMSDOS 
Allother “Insert CP/M Plus disc, 
ondise 1СРМ 
PIP B:=FILE 
* Filehasa header Ansys 


note 2 «s is start address of file, 4» is length, т» is optional run address. 

«note 3; Destination file cannot be used directly by BASIC. However this option is 
useful as a low cost transportation or backup medium. The file can be copied back 
toadiscby CLOAD "FILE", (under CP/M 2.2). 
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Reference guide to AMSDOS error messages 

When AMSDOS cannot carry out a command for some reason, it will display an error 
message. If there is a problem with the hardware, the error message is followed by the 
question: 


Retry, Ignore or Cancel? 


R causes the operation to be repeated, possibly after the user has taken some 
preventative action. 


I causes the computer to continue as if the problem had not occurred, which will often 
lead to unexpected and possibly inconvenient results. 


C causes the operation to be cancelled, which will often lead to a further error 
message. 


Error message meanings 


Unknown command 
... The command is not spelt correctly. 
Bad command 


«The command cannot be carried out for some reason. Syntax error or inappropriate 
hardware configuration. 


filename’ already exists 
+. User is trying to rename a file with a name that’s already in use. 
filename not found 
„File does not exist. 
Drive drive: directory full 
“Чо more room in the disc directory for a new entry. 
Drive «drive: disc full 


...No more room on the disc for new data. 
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Drive drive: disc changed, closing filename 
....Dise has been changed with files still open on it. 
filename’ is read only 


....File cannot be operated on because it is Read/Only. Files can only be set Read/Only 
or Read/Write in the CP/M environment. 


Drive drive: disc missing 


‚Мо disc in drive, or disc is not seated and spinning properly. Recommended action 
is to eject and re-insert the disc, then type R. 


Drive drive: disc is write protected 


....Attempt has been made to write on a disc with the Write Protect hole open. To use 
the disc, eject, close the write protect hole, re-insert the disc, and then type R. 


Drive drive: read fail 


.... Hardware error reading disc. Recommended action is to eject and re-insert the disc, 
then type R. 


Drive drive: write fail 


...Hardware error writing disc. Recommended action is to eject and re-insert the disc, 
then type R. 


Failed to load CP/M 
... Read error loading CP/M during the | СРМ command, or you are not using a valid 


system disc containing CP/M. Note that trying to load CP/M from a Data format disc 
will produce a “read fail' error. 
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Part 2: CP/M 


CP/M Plus 
Subjects covered: 


Introduction to CP/M 
Booting CP/M Plus 
Direct Console Mode 
Transient programs 
Managing peripherals 
Working with CP/M 2.2 


хэ...» 


CP/M Plus isa disc operating system. It is a special program which gives you access to 
the full power of your CPC6128. The 128K of RAM is used to the full, with over 61K 
available to user programs. CP/M incorporates random access to data files and the 
CPC6128 implementation includes a sophisticated VDU emulator. 


Because CP/M is available for so many different computers, it means that there are 
thousands of applications packages available for you to choose from, and a whole 
wealth of knowledge and experience for you to draw upon. 


Full details of CP/M Plus including information on how to write your own programs, 
and information on the AMSTRAD implementation of CP/M Plus, are contained in 
SOFT971 - A Guide to CP/M Plus, as well as other AMSOFT and independent 
publications. 


Introduction 


The CP/M operating system provides a way for you to communicate with the 
computer, and manipulate files and peripherals. Special commands (and programs 
on the disc called utilities) are there to help you get on with the main task - which is 
running your applications programs with your data. 
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Needless to say, it is possible to become quite an expert at how CP/M and all the 
various utilities work, and at times, such expertise can be very useful in helping out 
when we get into trouble. Most of us, however, only need to know enough to get us 
started, and the rest of this chapter is designed to introduce all the features and 
facilities without obscuring the vital facts with too many frills. 


Whereas BASIC has its Direct Mode and the ‘Ready’ prompt, CP/M has a Direct 

Console Mode and is identified by the A> or B> prompt. Certain built-in commands 

are available but the majority of the ‘housekeeping’ work is done by loading and 

running ‘transient programs’. They are called ‘transient’ because they are only inthe 

sompater (loaded from the disc) while you are using them, as opposed to being 
uilt-in. 


As well as standard CP/M error messages, the system also generates a number of 
specialised hardware error messages which can be distinguished by the fact that they 
normally appear on the bottom line ofthe screen in a ‘banner form. 


CP/M Plus on the disc 


The major part of CP/M Plus resides in a special file which has the filetype “. EMS’, 
and is found on Side 1 of the system discs package. The computer loads CP/M from 
this file into the memory using a two stage process. 


Initially, the AMSDOS command 1 C PM loads the first sector of track 0. On a system 
disc this sector has been arranged to be a program which then loads the . EMS file 
into memory. The remainder ofthe system tracks are unused. 


Early morning start profile 


During the loading process, when CP/M Plus is first activated, if the file 
PROFILE.SUB is present on the disc, then the instructions in that file are 
SUBMITted. This facility can be used to re-arrange the keyboard, customise the 
Screen output, initialise a printer and even auto-start an application program. In 
chapter 4 we saw how to rename the profile file supplied on Side 1 in order to activate 
it. 

While the profile file is working, a small temporary file is opened on the disc, which 
must therefore be write-enabled. This is why the master disc itself cannot include a 
recognisable profile file. 
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Profile files can be constructed using a word processor, text editor (such as ED . COM), 
or even from BASIC. The small BASIC program below could have been used tc 
generate the file PROFILE. SUB: 


10 OPENOUT "PROFILE.SUB" 

20 PRINT #9,"SETKEYS KEYS.CCP" 
30 PRINT #9,"LANGUAGE 3" 

40 CLOSEOUT 


Console control codes 


In the CP/M environment, a variety of special key operations are used. These 
keystrokes replace the action of the [ESC]ape and cursor keys used in AMSTRAD 
BASIC. The control codes below are assigned after running the command: 


SETKEYS KEYS.CCP 


..Where both the transient program SETKEYS.COM and the command file 
KEYS. CCP are found on Side 1 ofthe system discs package. 


Control 

Code Key Action 

[CONTROL]A 9 Moves the cursor one character to the 

eft. 

[CONTROL]B [CONTROL]¢ Moves the cursor to the beginning of the 
мэ o line. Ifthe cursor is already at the 
[CONTROL] beginning, moves to the end. 

[CONTROL]C [CONTROL][ESC] Abandon. 

[CONTROL]E [CONTROL][RETURN]  Physicalcarriagereturn. 

[CONTROL]F 0 Moves cursor one character to the right. 

[CONTROL]G [CLR] Deletes character under cursor. 

[CONTROL]H [DEL] Backspace delete. 

[CONTROL]! [TAB] Moves cursor to the next tab stop. 

[CONTROL]J Send command line. 
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[CONTROL]K [CONTROL] [CLR] Delete to end of line. 
[CONTROL]M [RETURN] Send command line. 
[ENTER] 
[CONTROL]P Hardcopy toggle. Turn on/off log of all 
screen output to printer. 
[CONTROL]Q Resume screen output. 
[CONTROL]R [CONTROL] [ENTER] Retype command line. 


[CONTROL]S [ESC] Haltsthe screen output from CP/M. Use 
[CONTROLJ]Q to resume. 

[CONTROL]U Discard line. 

[CONTROL]W [COPY] Recalllast-typed command line. 

[CONTROL]X [CONTROL] [DEL] Delete from beginning of line to cursor. 

[CONTROL]Z Endoftext. 

Filenames 


Many of the commands take filenames as a parameters, and where specified, the 
filename may contain wild-cards (see the section entitled "Wild cards' in part 1 ofthis 
chapter). All filenames will be forced to upper case. 


Direct Console Commands and most utility programs do NOT require that filenames 
are contained in double quotes "'". Remember that filenames can have an А: or B: 
prefix to force CP/M to use the appropriate drive. 


Therefore a typical CP/M command is: 
TYPE KEYS.CCP 


..Where TYPE is the function required, meaning ‘display on the screen’, and 
KEYS. CCP isa filename specifying which file we wish to see. 
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Switching default drives 


Ifyou have an additional disc drive connected, then it is possible to switch the default 
drive selection between Drive A and Drive B by typing A: or B: at the B> or A> 
prompt. That prompt, of course, tells you the current default drive. Adding the A: 
and B : prefix to filenames overrides, but does not reset, the default drive setting. 


Direct Console Commands 


There are a number of Direct Console Commands which can be typed at the A> or B> 
prompt. Each command can be abbreviated, and although the simple functions 
described below are genuinely built-in, there are also more sophisticated transient 
commands with the same name. 


DIR command 


DIR lists the D I Rectory of the disc. The filenames are not sorted into any particular 
order, but the position of the filename in the DIR display indicates the position of 
that file’s entry in the disc directory. Wild cards are permitted. Files set with the 
‘SYS’ attribute will not be listed. 


DIR willlist files on the default drive. 
DIR B: will list files on Drive В : 
DIR *.BAS will list files of type . BAS 


DIR B:*.BAS will list files of type . BAS on Drive B: 
DIR РЇР.СОМ, will list only the file Р1Р. COM (if it exists). 


DIRSYS or DIRS command 


DIRSYS or DIRS lists only those directory entries with the ‘SYS’ attribute set. 
Otherwise it operates as DIR. The SYS attribute is described later. 


ERASE or ERA command 


ERA is used to ERAse files from the directory. Only the directory entry is erased, so 
the data is still in the data section of the disc until the space is re-used by another file; 
however, the information is nevertheless not recoverable. Wild card filenames are 
permitted, and if used, ERA will ask for confirmation. ERA does not list the filenames 
that are deleted. If any file about to be erased is found to be Read/Only then the 
command will abort. The Read/Only attribute is described later. 
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ERA PIP.COM willerasethefile PIP.COM 
ERA B:PIP.COM willerase the file P IP . COM on Drive B 
ERA *.BAS willeraseall . BAS files 


RENAME or REN command 


REN allows you to REName an existing file. The new filename is specified first, 
followed by = then the existing filename. If the new filename already exists, an error 
message will be displayed. 


Wild cards in the filenames are outside the scope of REN as a built-in command, and 

require RENAME . COM, the transient program. 

REN NEWNAME.BAS=OLDNAME.BAS will rename the fileO LDNAME.BAS 
toNEWNAME.BAS 


REN B:NEWNAME.BAS=OLDNAME.BAS  willrenamethefileOLDNAME.BAS 
to NEWNAME . BAS, on Drive В. 
TYPE or TYP command 


ТҮРЕ asks for the specified file to be T YP Ed onto the screen. If the file is not ап 
ASCII text file, unpredictable and possibly undesirable side-effects may occur. 


TYPE KEYS.CCP 
...Will display the file KEYS . CCP 


USER or USE command 


USER changes the current user number. CP/M Plus starts with the current user 
number set to 0. Normally you can only access files identified with the current user 
number, thus providing a way of partitioning-off the directory. 

A file in User 0, with the ‘SYS’ attribute set can be accessed from all other user 
numbers. This is a very powerful facility for making utility and applications 
programs available to all user numbers, without having an actual copy of them in 
each user area. 


USER 3 


МШ set the current user number to 3. 
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Transient commands 


To perform more sophisticated file management than permitted by the Direct 
Console Mode, you must employ one of the various utility programs provided. These 
are invoked merely by typing the program name, possibly followed by a filename 
and/or some parameters. You have probably already used DISCKIT3. 


The commands fall into a number of categories as indicated below. Full 
documentation of these programs is extensive, and further information is contained 
in the HELP files (on Side 3 of your system discs package) and in SOFT971 - A Guide 
to CP/M Plus. 


The commands DISCKIT3, SETKEYS, SETLST, SETSIO, PALETTE 
LANGUAGE and AMSDOS, together with the GSX Screen Device Drivers and the 
installation of 10603 are designed by AMSTRAD, and work exclusively оп the 
AMSTRAD system. They will not work on any other CP/M system. 


It is possible to enter multiple commands on a single line, where the commands are 
separated by an exclamation mark. For example: 


LANGUAGE 3!SETKEYS KEYS.WP 


Peripheral Management 


DISCKIT3 is a complete disc formatter, copier and checker. It is quicker to format 
whilst copying than to format and then copy. Comprehensive menus indicate which 
keystrokes (mainly from the function key area of the keyboard) should be made. 
Vendor format discs are a special form of System disc intended for software 
distribution, although Data format discs are perhaps more suitable for this activity 
in the CP/M Plus environment. 


WARNING 


The licence agreement for your CP/M (which is electronically serial-number 
encoded) permits its use on a single computer system only. In particular this 
means that you are prohibited from giving any other person a disc with YOUR 
serial-numbered copy of CP/M on it. Because copies of Side 1 of your master 
package will include your CP/M (in the . EMS file) on it, you must be careful not 
to sell, exchange, or in any other way part with, any disc with that file on it. 
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Language characters 


'The CPC6128 has a full set of international characters. The LANGUAGE command 
exchanges certain of these characters so that simple software can display alternative 
and accented characters on the screen. Further details are contained in part 16 of the 


chapter entitled ‘For your reference....’. 
The command: 


LANGUAGE 3 


+... Will set the 6128 to the UK displayed character set, which swaps the # and £ signs 
(compared to the default USA set). 


Colours 


The default colours of CP/M Plus on the 6128 (with colour monitor) are bright-white 
characters on a blue background. These colours can be changed by the PALETTE 
command, which takes a number of parameters, one for each ink - ink 0 includes the 
background and border area; ink 1 is for the text. Each colour is represented by a 
number in the range 0 to 63, which can be used to gauge the colour’s intensity 
(brightness) on a green monitor. 


It is possible to specify any number of inks, from one to sixteen, although only the first. 
two will be visible in 80 column mode. 


Thecommand: 


PALETTE 63,1 
Will reverse the normal settings of ink 0 and ink 1, giving a background of 
bright-white (63) with text in blue (1). 


Use the values in the following table to select the colours (or intensities) that you 
require. Youcan use either the hex or decimal representation as you prefer. 
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Colour Decimal 


Black 

Blue 
Brightblue 
Red 
Magenta 
Mauve 
Bright red 
Purple 
Bright magenta 
Green 
Cyan 

Sky blue 
Yellow 
White 


Keyboard 


Colour 


Pastel blue 
Orange 

Pink 

Pastel magenta 
Bright green 
Sea green 
Bright cyan 
Lime green 
Pastel green 
Pastel cyan 
Bright yellow 
Pastel yellow 
Bright white 


Decimal 


The codes generated by the keyboard can be altered by the SE T KE Y S command. This 
allows suitable codes to be assigned to keys and to expansion tokens. The actual codes 
must be written into a file, whose name is then presented to the S E TKE Y S command. 
The command file can be created by a text editor, by P IP, or even from BASIC. For 
example: 


SETKEYS KEYS.TST 
әәмһеге the file KE YS . TST contains: 


E &8C "DIR | М" expansion token 12 
8 N S C "1H" backspace = [CONTROL]H, ASCII 08 


.... Will firstly redefine the [CONTROL] [ENTER] expansion token (represented by 
&8C) to be the string DIR [RETURN], and then turn the cursor left key 0 (key 
number 8) into a backspace. 


Standard files provided with the 6128 are KEYS . CCP for CP/M command editing, 
KEYS . DRL for use with Dr. LOGO (on Side 3), and KEYS . WP which is suitable for 
many word processors. 


AMSDOS and CP/M Chapter 8 Page 28 


Printers 


Initialising printers can be performed by the command: 


SETLST filename» 


«Where «filename» contains the string, or strings to send to the printer. As with the 
command file for S E TKE Y S, control codes can be represented by: 


T «character: 
огу... 

Т "character value: ' 
логу... 


Т ' «control code name: ' 


...Where control code names аге ESC, FF, etc., as shown in the table of ASCII 
characters in the chapter entitled ‘For your reference....’. 


A useful initialising code for many printers is the value 15, setting the printer into 
condensed printing. 
The command: 
PRINT #8,CHR$(15) 
... would set this in BASIC. In CP/M, issue the command: 


SETLST CONDENSE 


where the file CON DENSE contains any one of the following as a single line of text: 
1'$1' 
10 
Pur 
pus 
„which are all interpreted as the decimal value 15. 


Some applications programs require a screen that is 24x80. The command 
5ЕТ24Х80 may be used to set the screen size. 
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The commands: 
5ЕТ24Х80 
р ЖА 
5ЕТ24Х80 ON 
„turns 24 x 80 mode on, and: 
ЅЕТ24Х80 OFF 
„turns 24 x 80 mode off. 
The normal 6128 full screen size is 24 x 80, with the bottom line reserved for status 
messages. Turning off 24 x 80 mode will only be noticeable if the status line is also 


disabled. Refer to part 15 of Chapter 7 for details of how to turn the status line on and 
off. 


Sexialinterface 


Built into CP/M Plus is support for a single channel serial Input/Output interface 
(RS232). Its vital statistics сап be examined by typing the command SETS IO (with 
no parameters): 

SETSIO 
....Or can be set using a command which may include any (or all) ofthe selections: 


SETSIO, RX 1200, TX 75, PARITY NONE, STOP 1, BITS 8, 
HANDSHAKE ON, XOFF OFF 


„Which would set a new configuration. 
Baud rates and ХОМ/ХО Е F status are also affected by one ofthe assignments possible 
with the DEVICE command. DEVICE deals with logical and physical devices. 


Logical devices are indicated by a : colon. To examine all the current device 
attributes, type: 


DEVICE 
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...and the attributes can be altered by commands such as: 


DEVICE SIOL12001 „Sets S I O to 1200 baud. 
DEVICE SIOLXONJ toturnon 510 XON/XOFF protocol. 
DEVICE 510ГМОХОМ1 ..toturn off 510 XON/XOFF protocol. 


The connections between logical and physical devices can be altered. Normally 
CON: is set to CRT (keyboard/screen), AUX: is set to 510 (the optional serial 
interface), and LST : is setto LPT (the Centronics printer interface). The command: 


DEVICE LST:-SIO 
„will send the printer output to the serial interface (if fitted). 
Note how this is a channel re-direction, not to be confused with the file copying 
facilities provided by P I P. The two commands GET «filename and PUT «filename» 
re-direct console input or output, and printer output, instructing them to use a file, 
rather than the device channel. 


PIP 


The PIP utility (Peripheral Interchange Program) allows you to transfer 
information between the computer and its peripherals. 


In general, the form of the command is: 
PIP «destination: =<source 


The «source and «destination can be either a filename, with wild-cards allowed in 
thesource, or a logical device. The following logical devices may be used: 


AsSource Asdestination 
CON: console input CON: console output 
AUX: auxiliary input AUX: auxiliary output 


EOF: anend-of-file mark LST: printer 
PRN: a printer with added tab 
expansion, line numbers and page 
breaks 
Examples of PIP: 
PIP B:=A:*.COM 


„сору all ж. COM file from Drive А: to Drive B: 
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PIP KEYBOARD.CPM=KEYS.CCP 
..makeacopyof KEYS . CCP callingitKEYBOARD. СРМ 
PIP CON:-KEYS.CCP 
„send file KE Y S . CCP toscreen (similareffectto TYPE KEYS.CCP) 
PIP LST:-KEYS.CCP 
„send file KEY S . C CP to printer 
PIP TYPEIN.TXT-CON: 
„accept keyboard input intoa filecalled TY PEIN. TXT 


Note that this last operation is terminated by the [CONTROL]Z control code, and that 
in order to get a new line you must type [CONTROL]J after [RETURN] every time. 
[CONTROL] is the ASCII code for line feed. 


If typed without parameters, PIP gives a * prompt, and you can then enter the 
commands that you require. This form of operation is particularly useful for copying 
files when we do not have the P IP . COM file on either the source or destination disc. 
We сап load in P I P from System disc Side 1, remove the System disc, and then insert 
the discs that we are going to use during the copying. 


To exit from P I P, press [RETURN] at the * prompt. 


Note that PIP can be used to copy files from one disc to another on a single drive 
system, prompts will be automatically issued to change the disc. The source and 
destination drive identifiers must differ. 


System management 


DIR,ERASE, RENAME and TYPE aretransient programs with more facilities than 
their built-in counterparts. As with many other transient programs supplied by 
Digital Research, secondary parameters are specified in square brackets. Full details 
are contained in the HELP files (on Side 3 of your system discs package). A few 
examples are: 


DIR LFULLJ displaysshow file sizes and attributes 
ERASE *.COM CCONFIRM] will prompt for confirmation of each file it finds, 
individually 
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RENAME will ask for the old and new filenames to be 


typedin 

RENAME *.SAV=*.BAK will rename all files of type .BAK to type 
-SAV 

TYPE KEYS.WP ГМОРА6Е2 will suppress the screen pagination 


The file attributes of SYS (System) and RO (Read/Only) have been mentioned 
earlier. These and many other attributes can be assigned using the SET command, 
which accepts wild cards. 


The commands: 


SET *.COM [RO] 
SET KEYS.CCP CROJ 
SET A: CRO] 


„веб files or a drive to Read/Only status, to prevent accidental erasure. 


The commands: 


SET *.COM [RW] 
SET KEYS.CCP CRW] 
SET А: CRW] 


«reset files or a drive to Read/Write status. 


The commands: 


SET *.COM [SYS] 
SET KEYS.CCP [SYS] 


«give files the System attribute. Files with this attribute are not shown by the DIR 
command (DIRS or DIRSYS is required). However, the files are still available for 
use, and in addition, if the files are located in User area number 0, they are available 
toallother User area numbers. 


The commands: 


SET *.COM [DIR] 
SET KEYS.CCP CDIR] 


....removes the System attribute. 
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Each disc can be assigned a label, or name, and also a password. That password wil 
protect the directory itself, rather than the files named in the directory. Th 
individual files can also be assigned a password. 


SET LNAME-ROLANDJ 
SET CPASSWORD=SALLY] 
SET CPROTECT=ON] 


...act on the default disc. 


SET *.*LPASSWORD-SALLYJ 
SET *.*CPROTECT=READI 
...act on files on the default disc (the wild cards * . * used here indicate ‘all files’). 


Date and time stamping can be activated by the INITDIR command (on Side 2 o 
your system discs package). The commands: 


INITDIR 

SET CCREATE=ON] ..or.. SET CACCESS=ON] ..and... 
SET ГОРРАТЕ-0М1 ...together with.... 

DIR CFULLI 


...Will initiate and display date and time stamping on the default drive. Typing in: 
DATE SET 


...is then required each time CP/M Plus is started, to set the clock. Once set, the clock 
will keep reasonable time, updated automatically by the 6128 and inspected by: 


DATE ..and... 
DATE CONTINUOUS 


WARNING 


If passwords, disc labelling, or date and time stamping have been activated, 
then it is recommended that the disc is NEVER subsequently written to by 
AMSDOS or CP/M 2.2, neither of which support these facilities. 
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Normally, files will accessed on the default drive only, unless a particular drive is 
specified. The command: 


SETDEF *,A: 


+. (where Ж refers to the default drive) instructs CP/M (when it searches for files) to 
search firstly on the default drive, then on Drive A :. In other words, if the default 
drive is B : then files will be found automatically even if they only exist on Drive А:. 


The commands: 


SETDEF [PAGE] ..and... 
SETDEF CNOPAGE] 


turnon and offthe automatic pagination of console display. 


Remember that most of the facilities of DEVICE, SET, and SETDEF particularly 
where they refer to drives (rather than files or discs) need to be set up, together with 
the date, each time CP/M Plus is started. This is a prime application for a suitable 
PROFILE.SUB.file. 


SUBMIT is required to execute files of individual commands automatically. The 
contents of the command files are text, and it is possible to include input to programs 
ifthe first character on those lines in the . SUB file is < 


The drive size, amount of space, and number of directory entries left on a disc, 
together with the user areas containing files, and the disc label (if any) may be 
displayed by various combinations ofthe S HOW command: 


SHOW B: 

SHOW B:CLABEL] 
SHOW B:LUSERSJ 
SHOW B:LDIRJ 
SHOW B:LDRIVEJ 


all specify statistics from Drive В: 


Exit-ing CP/M Plus 


AMSDOS 


This program relinquishes control from CP/M and returns to the built-in AMSTRAD 
BASIC, from which the AMSDOS disc commands will be available. 
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Advanced programming 


Side 2 of your system discs package contains a number of programs intended for us 
by advanced and system programmers. It is recommended that the user consul 
SOFT 971 - A Guide to CP/M Plus, or other reference works. 


Working with CP/M 2.2 


This section is intended to highlight the differences when operating using CP/M 2.2. 


CP/M 2.2 is loaded from the first two tracks of a System disc. The bootstrap sector is 
different from that used to load CP/M Plus and care should be taken not to confuse 
them. Although it is possible to use Vendor, IBM, and Data format discs in either disc 
drive, operational considerations usually restrict their use to the second disc drive. 


Unless special action is taken by the CP/M program (as FILECOPY does for 
example) then CP/M 2.2 will not allow you to write to a disc unless it has been ‘logge¢ 
in’, Furthermore, the type of disc format (System, Data, or IBM) is only 
re-determined when a disc is logged in. For the main disc drive within the computer 
(Drive A) this takes place whenever CP/M 2.2 returns to the Direct Console Mode, or 
when [CONTROL]C is typed at the A> or B> prompt. For an additional drive (Drive 
B) this takes place the first time that the disc in Drive B is accessed, after Drive A has 
been logged in. 


Should you try writing to a disc that has not been logged in, the infamous error 
message: 


Bdos Err on drive: К/О 


«Will be displayed. Press any key to continue. If the changed disc was also of a 
different format then a read or write error will occur. Type C to continue. 


If you receive software on a disc in Vendor format, then in order to use it 
conveniently, you may either copy it to a CP/M 2.2 system disc by using FILECOPY 
or PIP, or alternatively convert the disc to a system disc by adding your CP/M to it. 
This is acheived with the BOOTGEN and SYSGEN commands. Carefully read the 
End User Licence Agreement in this manual (Appendix 1). 


SYSGEN (with no parameters) is a specialised copier program which prompts for a 
source and destination disc, and copies the CP/M 2.2 system tracks from one disc to 
another. BOOTGEN similarly copies Sector 1, track 0 (the loader) and the 
configuration sector from one disc onto another. 


The DIR command does not accept parameters (other than a file specifier). The 
filenames are not sorted into any particular order, but the position ofthe filename in 
the DIR display indicates the position ofthat file's entry in the disc directory. 
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STAT provides some of the basic functions of $ ET and SHOW. The commands: 


STAT 
STAT А: 
STAT B: 
„display disc status and free space. 
The commands: 
STAT *.COM 
STAT DISC.BAS 
+. display extended directory information about a particular file. 
The commands: 


STAT *.COM $R/O 
STAT DISC.BAS 58/0 


set a file to a Read/Only status, so that it cannot be accidentally erased or 
'erwritten. 


‘The commands: 


STAT *.COM $R/W 

STAT DISC.BAS $R/W 
...8et a file to Read/Write status, reversing the Read/Only assignment. 
The commands: 


STAT *.COM $SYS 
STAT SECRET.BAS $SYS 


„set a file to ‘System’ status so that it is invisible to directory listings and file 
copying programs. The file will still be available for all other purposes. 


The commands: 


STAT *.COM $DIR 
STAT SECRET.BAS 501К 


....8et a file to ‘Directory’ status, reversing the ‘System’ assignment. 


The utility FILECOPY allows you to copy files from one disc to another using a 
single drive. It copes with disc changing and gives full instructions on the screen. If a 
wild-card filename is specified then F I LE COP Y asks you to confirm that you indeed 
wish to copy each file on an individual basis. The program informs you of each 
filename as each file is copied. 
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FILECOPY *.COM -...Copies all filesoftype . COM 


FILECOPY PIP.COM copies the file PIP. COM 
DISCKIT2 performs the same functions as DIS СКІТЗ, but is somewhat slower 
when copying discs as it has less memory available to it. 


Two utilities are available which transfer files between disc and cassette. Except for 
specialist use, it is unlikely that anything other than ASCII, i.e. plain text, files can 
usefully be transferred. 


CLOAD (Cassette LOAD) can take two parameters, the first is the source (cassette) 
filename, enclosed in double quotes, and the second is the destination (disc) filename. 
If the destination filename is omitted, the disc file will have the same name as the 
cassette file. If the source filename is omitted then CLOAD reads the first file 
encountered on the tape. If the first character of the cassette filename is ! then the 
normal cassette messages will be suppressed. 


Example command: 
CLOAD "MY LETTER" MYLETTER.TXT 


CSAVE (Cassette SAVE) can take three parameters. The first is the source (disc) 
filename and the second is the destination (cassette) filename, enclosed in double 
quotes, If the destination filename is omitted, the cassette file will have the same 
name as the disc file. If the first character of the cassette filename is ! then the 
normal cassette messages will be suppressed. If both filenames are specified, then a 
third parameter may be used to specify the tape write speed; 0 for nominal 1000 baud, 
1 for nominal 2000 baud. 


Example commands: 


CSAVE OUTPUT.TXT "OUTPUT TEXT" 1 
CSAVE DATAFILE 


SETUP 


This utility allows you to re-défine the characteristics of the 6128 keyboard, the disc 
drive section, and the serial interface. It also enables you to initiate various actions 
when CP/M 2.2 is first loaded. Unlike the separate utilities provided with CP/M Plus, 
which actually perform their duty when run, SETUP modifies the configuration 
sector of a disc (which is only invoked when a disc is cold-booted). In this way, it is 
similar to the action ofthe PROFILE. SUB utility. 
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The program is menu-driven and when a particular screen is correct, or requires no 
modification, move on to the next by answering Y to the question: 

Is this correct (Y/N) :_ 
The program can be aborted by [CONTROLIC keys. When all the changes have been 
made it will prompt: 

Do you want to update your system disc (Y/N):_ 


... giving you the opportunity to retain the existing configuration sector by typing N. 
It will also prompt: 


Do you want to restart CP/M (Y/ND:. 


....allowing you to load and try the new configuration by typing Y. 


To copy a configuration sector from one disc to another, either use BOO TGEN, or load 
SETUP from the source disc, answer Y to EVERY question, inserting the destination 
disc just before answering Y tothequestion'Do you want to updateyour 
system disc (Y/N):_. 


Characters with an ASCII value less than decimal 32 can be typed into strings by 
typinga 1 followed by a suitable character from the set 2,A~Z,C,\,1,>,— 


The following options are those more commonly requiring attention: 
** Initial command buffer: 


Any characters entered here will appear as if they had been typed into the Direct 
Console Mode when CP/M is first loaded. This has the effect of auto-running a 
particular program at that time. Remember to include the equivalent of the 
[RETURN] key which is represented by the two characters ] М 


For example, to auto-run D IR, the initial command buffer should contain: 
DIRTM 
„ог, to auto-run the Dr. LOGO program, the initial command buffer would contain: 
SUBMIT 106021М 
Sign-on string: 
This is the message displayed at the top of the screen when CP/M is first loaded. Note 
the use of 1 J 1 M to give a carriage return/line feed effect. The early part of the 


standard message sets suitable screen and border colours for working in 80 column 
mode, and should be copied exactly if they are to be preserved. 
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Keyboard translations: 


This allows new ASCII values to be set into keys, effectively simulating the KEY DEF 
command in BASIC. The parameters required are the key codes, and the ASCII 
values to set into them, For an illustration of key numbers, refer to the diagram at the 
top right hand side of the computer, or to part 4 of the chapter entitled ‘For your 
reference..." 


Keyboard expansions: 
Effectively simulates the KE Y command in BASIC. 
Tail enders.... 


TheDISCKIT2,SYSGEN, BOOTGEN, FILECOPY, SETUP, CSAVE,and CLOAD 
commands are designed by AMSTRAD, and work exclusively with CP/M 2.2 on the 
AMSTRAD system. They have no function on any other CP/M system, although other 
manufacturers may supply similar utilities (often with the same names) customised 
fortheir hardware. 


The following CP/M 2.2 programs are also available on Side 4 for specialist use, and it 
is recommended that the user consult SOFT159 - A Guide to CP/M, or other reference 
works. 


ASM 8080 Assembler. 

DDT 8080 Assembly code debugging aid. 

DUMP Hexadecimal file dump utility. 

ED Asimple context editor. 

LOAD Convertsa . HEX file produced by ASM intoa . COM file. 
MOVCPM Create CP/M 2.2 with new (smaller) TPA size. 

SUBMIT Console Command Mode batch processing. 

XSUB Transient program batch processing. 


The above programs are for use with CP/M 2.2 (on Side 4), and should not be confused 
with other programs on the CP/M Plus sides of the discs (Sides 1, 2, and 3). 
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Chapter 6 
Introduction to LOGO 


This Section is intended to introduce the subject of LOGO, with 
examples, and provide a guide to the commands available. It is 
not intended to be an exhaustive tutorial or reference guide, and 
it is recommended that you consult the range of publications from 
AMSOFT and other independent publishers for further 
information on this subject. 


This chapter covers: 


Ж The concept of LOGO 

* Loading and Running Dr. LOGO 
Ж Turtle Graphics 

Ж Writing your own procedures 

* Editing your own procedures 


Whatis LOGO? 


LOGO can help you grow as a programmer, whether or not you have ever 
programmed before. 

LOGO is a powerful programming language that is rapidly gaining popularity 
because it is so easy to learn and use. 

You use procedures as building blocks to create LOGO programs. Dr. LOGO itself is a 
collection of procedures, called primitives, that you use to build your own programs. 
During the 1970s, a team of computer scientists and educators under the direction of 
Seymour Papert, developed LOGO with turtle graphics to allow very young children 
to program and use a computer. 


They developed the turtle so that young learners could have, as Papert says, ‘an 
object to think with; a tool to help them learn in new ways’. 


In the form of an arrow head, the turtle can be directed across the screen by the use of 
simple commands. 
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Dr.LOGO 


Dr. LOGO is a thoughtful implementation of LOGO which has been specially 
customised for the AMSTRAD personal computer to make it even easier to program. 
Extensions have been included to make available the powerful sound facilities of the 
6128,and program editing is made easy by the inclusion of the cursor keys. 


Getting Started 


To operate Dr. LOGO, insert a copy of Side 1 of your master discs package into the 
computer's disc drive, and type in: 


ICPM 


At the A> prompt, remove the disc (Side 1) from the drive, and insert your working 
copy of Side 3 (DR. LOGO & HELP). 


Torun Dr. LOGO, type in: 
SUBMIT LOGO3 


...and after a few seconds, you will see the opening ‘Welcome’ message, followed by 
the question mark ? prompt. 


Dr. LOGO for CP/M 2.2 


NOTE - The version of Dr. LOGO which you will find on Side 4 of your 
master package has been provided in case you require a copy of Dr. LOGO 
to operate with CP/M 2.2 (used on AMSTRAD models CPC664 and 
CPC464+DDI}1), It is therefore not generally recommended to use the Side 
4 version of Dr. LOGO on the CPC6128. The version provided on Side 3 of 
your master package is Digital Research’s full specification Dr. LOGO. 
Ifyou DO however wish to use the CP/M 2.2 version of Dr. LOGO, insert a 
copy of Side 4 of the master package and type: 


1сРМ 
At the A> prompt, type in: 
SUBMIT LOGO2 


...and after a few seconds, you will see the opening ‘Welcome’ message, 
followed by the question mark ? prompt. 
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First Steps.... 

The ? prompt tells you that Dr. LOGO is waiting for you to type something at the 
keyboard. 

Try typing in (using lower case letters): 


fd 60 


гапа you will see a turtle (a large arrow head) appear, which then moves forward 60 
units leaving a line behind it from where it started, to where it finished. The screen 
will clear giving a large graphics area and a smaller text area with the ? prompt near 
the bottom of the screen. 


Dr. LOGO will often decide to re-arrange the screen so as to give either a large text 
area or large graphics area, for your convenience. 


Type in: 
rt 90 


апа the turtle will move 90 degrees to the right. 
Now type in: 


fd 60 


...and another line will be drawn the same length, at right angles to the first line. 


Experiment with the simple instructions f d, bk (short for back), rt and | t (short 
for left) to see what happens on the screen. 


Dr. LOGO Procedures 


A procedure is a list of instructions that tells Dr. LOGO how to do a task. 


You will probably write your first procedures by adding to those already built into Dr. 
LOGO, these are called ‘primitives’. 

fd, bk, rt and Lt are all built-in primitives which you may use at any time as 
building blocks to write your own procedures. 


Another very useful built-in primitive is c s which clears the screen and sends the 
turtle to its starting position. 
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Writing a Simple Procedure 


It is easy to visualise that if the movements: 
fd 60 rt 90 


„меге to be repeated 4 times each, a square with sides of 60 units would be drawn. 
The same effect can be achieved by writing a simple formula: 


repeat 4 [fd 60 rt 901 


Clear the screen and then try typing this in to check what happens. 
To make this formula into a new procedure called ‘s qua r e’, type: 
to square 


repeat 4 [fd 60 rt 901 
end 


Dr. LOGO will now understand ‘square’, and each time it encounters the word 
‘square’ it will draw a square on the screen. We could have given this procedure 
any name, but we chose 5 quar e' to remind us what it does. 


Тт. LOGO allows us to type in a whole set of commands together so the instructions: 
square rt 45 square 


„мі draw two squares, the second at a 45 degrees angle to the first. 


Procedures with parameters 


It is possible to make a procedure to which we can say ‘how much’, in the same way 
that we can say 'how much' to a built-in procedure. To make a procedure that will 
draw squares of different sized sides, the definition of‘s qu a r e' can be altered to: 


to squareanysize :side 
repeat 4 [fd :side rt 901 
end 


You will notice that the variable : s i de starts with a colon. This indicates to Dr. 
LOGO that : si de isa variable rather than a command. 


When we use the procedure squareanysi ze, the variable : side must have а 
value. Hence the instruction squareanysize 150 would produce a square 
with sides of 150 units. 
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Try adding two procedures together and see what happens. For example from an 
instruction: 


cs squareanysize 100 rt 45 squareanysize 150 


„ће turtle will draw two squares of differing sized sides, and one will be at a 45 
degrees angle to the other. 


Notice how Dr. LOGO uses an exclamation mark ! to remind you that a line of 
commands has split across more than one line of screen. 


Using Variables to remember values 


Dr. LOGO will also allow us to use variables to remember values, as well as for 
passing values to a procedure, 


First define a new procedure called triangle: 


to triangle 
repeat 3 [fd :edge rt 1201 
end 


We can test this by typing: 


make "edge 100 
triangle 


If we want to know the value remembered by : edge we can just type : edge after 
the ? prompt and Dr. LOGO will print the value. 


Finally, we can use our variable : edge in a new procedure to draw a pattern. Notice 
how the value of : edge is increased by adding to its previous value so that each time 
we draw the pattern, it gets bigger. 


to pattern 

triangle lt 60 triangle rt 60 
make "edge :edge*4 

pattern 

end 

make "edge 10 

cs pattern 


When you have seen enough, press [ESC] to stop the program. 
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Editing programs and procedures 


Dr. LOGO allows us to correct typing mistakes and to alter procedures we have 
defined. The editing keys to use are: 


Тһе cursor keys a0 which move the cursor by one character or line ata time. 


The cursor keys oo) pressed at the same time as holding down 
[CONTROL] will move the cursor up and down a page, and to the left and right of a 
line. 


[CLR] deletes the character under the cursor, [DEL] deletes the character to the left of 
the cursor. 


[RETURN] tells Dr. LOGO that you have finished editing a line of commands, or 
makes a new line if you are editing a procedure. 


[ESC] means abandon, and [COPY] tells Dr. LOGO that you have finished editing a 
procedure. 


When typing in commands or new procedures, simply edit the text in front of you on 
the screen. Characters will be inserted into the text at the cursor position. 


To edit an already existing procedure, use the command ed, and Dr. LOGO will 
display the old version of the procedure on the screen, You may then use the 
previously described methods to move the cursor around the screen, and change the 
text. 


Try editing the procedure ‘pat t ern’ by typing: 
ed "pattern 


Experiment with the editing keys. If, when you have finished, you press [ESC], then 
Dr. LOGO will abandon what is on the screen and give you back the original unedited 
version. 


Typeed "pattern again, and after changing the number 4 to 8, press [COPY] to 
exit, then re-run the procedure and see how the screen output has changed. 
Remember to set the initial value into : edge 


Operating hints 


The workspace used by Dr. LOGO is divided into nodes. You can see how many are 
left by typing: 


nodes 


Chapter 6 Page 6 Introduction to Logo 


Occasionally, when nearly all the nodes are used up, Dr. LOGO will tidy up the 
workspace and you may see the turtle pause while this happens. You can ask Dr. 
LOGO to tidy the workspace by typing the command: 


recycle 
This will often allow you to continue after Dr. LOGO has complained of not having 
any more nodes left. 


Ifyou are using the CP/M 2.2 version of Dr. LOGO (on Side 4 of your master package), 
make sure that there is plenty of disc space left before starting Dr. LOGO in case you 
decide to save your procedures on disc. You can use the CAT command in AMSDOS 
(see part 7 of the Foundation course) to see how much free space there is on a disc. 
Now work through the following sections and try some of the examples - you won’t 
understand everything first time! As you learn about Dr. LOGO you will be able to 
use more and more of the commands. 


When you have finished with Dr. LOGO type: 


bye 


Summary of Dr. LOGO primitives 


The following section groups together alphabetical lists of Dr. LOGO primitives 
showing the inputs to use, often with an example. 


NOTE 


Commands indicated by an asterix * are NOT available in the CP/M 2.2 version 
of Dr. LOGO (on Side 4 of your master package), and programs using these 
commands will therefore not be downwards compatible with the CPC664 or 
CPC464+DDI1, running CP/M 2.2 


Introduction to Logo Chapter 6 Page 7 


Word and List Processing: 


(Note that prompts ? and > areshown in the following examples) 


ascii 


Outputsthe ASCII valueofthe first character in the input word. 


?аѕсіі "G 
71 
?ascii 
103 


g 


bf 


(but first) Outputs all but the first element in the input object. 
?bf "smiles 
miles 


?bf C1 2 31 
t2 31 


bl 

(but last) Outputs all but the last element in the input object. 
?bl "smiles 
smile 


251 [1 2 3 41 
E12 31 


char 


Outputs the character whose ASCII value is the input number. 
?char 83 
s 


Chapter 6 Page 8 Introduction to Logo 


count 
Outputs the number of elements in the input object. 


?count "six 

3 

?count [Ø 1 2 31 
4 


emptyp 


Outputs TRUE if the input object is an empty word or an empty list, otherwise 
outputs FALSE. 
?emptyp " 

TRUE 
?emptyp С] 
TRUE 
?emptyp [x] 
FALSE 

?make "x 11 
?emptyp :x 
TRUE 


first 
Outputsthe first elementofthe input object, removes list’s outer brackets. 


?first "zebra 
z 
?first £1 2 31 
1 


fput 


(firstput) Outputs a new object formed by making the first input object the first 
element in the second object. 


?fput "s "miles 
smiles 

?fput 1 [2 31 
t? 2 31 
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item 
Outputs the specified element ofthe input object. 


?item 4 "dwarf 
r 


* 


last 
Outputs the last element of the input object (compare with f i r s t). 


?last "skyline 
e 


* 
lc 


Outputs the input word with all alphabetic characters in lower case (see also u c). 


?lc "SOUTH 
south 


list 


Outputs a list made up ofthe input objects, retains list's outer brackets (compare with 
se). 


?<(list 12 3 4) 
[12 3 41 

?list "big [feet] 
[big Гїеех11 
2Clist) 

1 


š - 


listp 
Outputs T RUE if the input object is a list, otherwise outputs FALSE. 


?listp "mother 

FALSE 

?listp [father brother sister] 
TRUE 
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* 


Iput 


(lastput) Outputs a new object formed by making the first input object the last 
element in the second input object. 


?lput "s "plural 
plurals 

?lput "s [plural] 
Cplural 81 


* 


memberp 


Outputs TRUE ifthe first input object is an element ofthe second input object. 
?memberp " 

TRUE 

?memberp "chocolate ГГуапі((а1Гсһосо(баее1Гвғганһеггу11 

FALSE 

?memberp [chocolate] LLvanillaJLchocolateJLstrawberry13 

TRUE 


y "only 


* 


numberp 
Outputs TRUE ifthe input object is a number. 


?numberp 374.926 

TRUE 

?numberp "six 

FALSE 

?numberp first [2 4 6 81 
TRUE 


* 
piece 
Outputs an object that contains the specified elements ofthe input object. 
?piece 4 7 "Kensington 
sing 


?piece 2 4 [Nana John Michael Wendy Tinkerbell] 
[John Michael Wendy] 
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(sentence) Outputs a list made up of the input objects, removes list's outer brackets 
(compare with Li s t). 

?make "instr List rl 

repeat 4 [fd 50 rt 901 

?run (se "cs :instr list "ht) 


Note that the underline character between instr and list is obtained by 
pressing [SHIFT]O 


* 
shuffle 
Outputs a list that contains the elements ofthe input list in random order. 


?shuffle La b c d] 
[c b d al 


* 


uc 


Outputs the input word with all alphabetic characters in upper case (compare with 
(с). 


?uc "jones 
JONES 


* 

where 

Outputsa number calculated from the most recent successful memb e r p expression. 
?memberp "v "river 


TRUE 
?show where 


word 
Outputs a word made up ofthe input words. 


?word "sun "shine 
sunshine 
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wordp 

Outputs T RUE if the input object is a word or a number. 
?wordp "hello 
TRUE 


?wordp [J 
FALSE 


Arithmetic Operations: 


* 


arctan 


Outputs the arc-tangent (in degrees) ofthe input number. 


?arctan 0 
?arctan 1 
45 
cos 
Outputs the cosine ofthe input number of degrees. 
?cos 60 
0.5 
int 
Outputs the integer portion of the input number. 


?іпе 4/3 
1 


* 


quotient 
Outputs the integer division of the two input numbers. 


?quotient 14 4 
3 

21474 

3.5 
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random 


Outputs a random non-negative integer less than the input number. 


?random 20 


* 


remainder 


Outputs the integer remainder obtained when the first input number is divided by 
the second. 


?remainder 7 3 
1 
?remainder 8 4 
0 


* 
rerandom 


Makes a subsequent random expression reproduce the same random sequence. 


?repeat 10 [(type random 10 char 9)1 
1 3 7 3 4 2 6 
?repeat 10 L(type random 10 char 9)1 

4 9 4 @ 1 3 5 1 
?rerandom 

?гереа( 10 C(type random 10 char 9)] 

5 2 9 2 5 1 6 2 3 ? 
?rerandom 

?repeat 10 [(type random 10 char 9)1 

5 2 9 @ 3 1 6 2 3 7 


* 


round 


Outputs the input number rounded off to the nearest integer. 


?round 3.333333 
3 

?round 3.5 

4 
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sin 
Outputs the sine of the input number of degrees. 


?sin 30 
0.5 


+ 


Outputs the sum of the input numbers. 
2+ 2 2 
4 
2-2 
4 


Outputs the difference ofthe two input numbers. 


?- 10 5 
5 

210-5 
5 


* 
Outputs the product of input numbers. 


/ 


Outputs the quotient of the two input numbers. 


2/ 25 5 
5 


225/5 
5 
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Logical Operations: 
and 


Outputs T RUE ifthe result of all input expressions are true. 


?and (344) (7>4) 
TRUE 


not 


Outputs TRUE ifthe input expression is false. 
Outputs FALSE ifthe input expression is true. 


?not (3=4) 
TRUE 

?not (3=3) 
FALSE 


or 
Outputs FALSE ifall input expressions are false. 


?or "TRUE "FALSE 
TRUE 

?or (3-24) (152) 
FALSE 


Outputs TRUE ifthe two input objects are equal; otherwise outputs FALSE. 


?- "LOGO "LOGO 
TRUE 

21-2 

FALSE 


>ə 


Outputs TRUE if the first input word is greater than the second; otherwise outputs 
FALSE. 


2> 19 20 
FALSE 
220>19 
TRUE 
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< 


Outputs T RUE ifthe first word is less than the second; otherwise outputs FALSE. 


2< 27 13 
FALSE 
213<27 
TRUE 


Variables: 
local 


Makes the input-named variable(s) accessible only to the current procedure and the 


procedures it calls. 


>Clocal "x "y "z) 


make 


Makes the input-named variable the value of the input object. 


?make "side 50 
?:side 
50 


namep 


Outputs T RUE ifthe input word identifies a defined variable. 


?make "flavour "chocolate 
?:flavour 

chocolate 

?namep "flavour 

TRUE 

?namep "chocolate 

FALSE 
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* 
thing 
Outputs the value of the input-named variable. 


?make "computer "amstrad 
?thing "computer 
amstrad 


Procedures: 


* 
define 
Makes the input definition list the definition of the specified procedure name. 


?define "say.hello СЕЈ [pr "helto33 
?po "say.hello 

to say.hello 

pr "hello 

?text "say.hello 

CC] Cpr "һе(1011 

end 


end 


Indicates the end of a procedure definition; must stand alone at the beginning of the 
last line. 


?to square 

>repeat 4 Cfd 50 rt 901 
»end 

square defined 

?square 


po 
(print out) Displays the definition(s) ofthe specified procedure(s) or variable(s). 


2po "square 

to square 

repeat 4 [fd 50 rt 901 
end 

?паке "х 3 

?po "х 

x is 3 


Chapter 6 Page 18 Introduction to Logo 


pots 
(print out titles) Displays the names and titles of all procedures in the workspace. 
?pots 
* 
text 
Outputs the definition list ofthe specified procedure. 
?to star ;five pointed star 
>repeat 5 [fd 30 rt 144 fd 30 lt 721 
>end 
star defined 
?text "star 
[C] Crepeat 5 Lfd 30 rt 144 fd 30 (t 72111 
to 
Indicates the beginning of a procedure definition. 
?to square 
>repeat 4 Cfd 50 rt 901 


>end 
square defined 


Editing: 
ed 


(edit) Loads the specified procedure(s) and/or variable(s) into the screen editor’s 
buffer. 


2ed "square 
* 


edall 


Loads all the variables and procedures in the workspace into the screen editor's 
buffer and enters the screen editor. 


?edall 
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* 


edf 


Loads the specified disc file into the screen editor’s buffer directly from the disc, or 
creates a new file and enters the screen editor with an empty buffer. 


?edf "star 


Printer Functions: 


* 

copyon 

Starts echoing text to the printer. 
?copyon 

* 

copyoff 

Stops echoing text to the printer. 
?copyoff 


Text Screen: 
ct 


(clear text) Erases all text in the window that currently contains the cursor, then 
positions the cursor in the upper left corner ofthe window. 


?ct 


* 
cursor 


Outputs a co-ordinate list that contains the column and line numbers of the cursor's 
position within the text window. 


?ct 

?cursor 

tgo 11 

?(type [The current cursor position 1511 show cursor 
The current cursor position is [32 23] 
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pr 


(print) Displays the input object(s) on the text screen, removes list's outer brackets, 
follows last input with a carriage return (compare with s how and type). 


?pr Ca b с] 
abc 


* 
setcursor 
Positions the cursor at the location specified by the input text screen co-ordinate list. 
?ct 
?to picture 
>make "x random 20 
>make "y random 12 
>setcursor list :x :y pr "* 


>end 
?picture 


setsplit 


Sets the number of lines in the split screen. 


?setsplit 10 


show 


Displays the input object on the text screen, retains list’s outer brackets, follows 
input with a carriage return (compare with pr and t ype). 


?show Ca b c] 
Га b c] 


ts 
(text screen) Selects a full text screen. 


215 


Introduction to Logo Chapter 6 Page 21 


type 


Displays the input object(s) on the text screen, removes list’s outer brackets, does not 
follow last input with a carriage return (compare with pr and 5 һом). 


?type Ca b c] 
abc 


Graphic screen: 


Note that the screen is in Mode 1, giving four colours, and that the same co-ordinate 
system is used as in AMSTRAD BASIC. In other words all screen positions will be 
rounded to the nearest even-numbered screen dot. Red green and blue colours can 
have amounts of 0, 1, or 2. 

clean 

Erases the graphic screen without affecting the turtle. 


?fd 50 
?clean 


cs 


(clear screen) Erases the graphic screen and puts the turtle at [0,0] heading 0 (north) 
with the pen down. 


?rt 90 fd 50 


?cs 


dot 


Plots a dot at the position specified by the input co-ordinate list in the current pen 
colour. 


?dot [50 101 
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* 


dotc 


Outputs the colour number of the dot at the specified input co-ordinate list,or-1ifthe 
location is not on the screen. 


?cs 

?setpc 1 

?dot Г-50 501 
?setpc 2 

?dot 150 501 
?setpc 3 

?dot [50 -501 
?dotc [50 591 
2 

?dotc [-50 -501 
ø 


?dotc 11000 30001 
-1 


Тепсе 


Establishes а boundary that limits the turtle to the visible graphic sereen. window 
removes the boundary. 


?fence 
?fd 300 
Turtle out of bounds 
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fs 
(full screen) Selects a full graphic screen. 


fs 


pal 


(palette) Outputs numbers representing the amount of red, green, and blue colour 
assigned to a pen. 


?pal 2 
tü 2 21 


* 


setbg 
Sets the graphic screen background to the colour assigned to the input colour number. 


?sf 
10 SS 5 FENCE 11 


(This shows that the background is set to zero.) 


?pal 0 

cø Ø 13 

?setbg 2 

?sf 

[2 $$ 5 FENCE 11 


setpal 


(set palette) Sets the pen colour palette. Assigns an amount of red, green, and blue to 
a pen. 


?setpal 3 [1 1 21 
?pal 3 
ET.4 21 
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* 


setscrunch 


Sets the graphic screen’s aspect ratio to the input number. 


tst 

CØ SS 5 FENCE 11 
?to circle 
>repeat 360 [fd 1 rt 1] 
>end 

circle defined 
?setscrunch 2 
254 

CØ SS 5 FENCE 21 
?circle 
?setscrunch 2.5 
?circle 


sf 


(screen facts) Outputs information about the graphic screen. The format is: 
[«bgcolour» «screen-state» «split-size» -window-state: scrunch} where <bgcolour> is 
the background pen number, (always 0 under CP/M 2.2). «screen-state> indicates $$ 
(split screen), FS (full screen) or TS (text screen). «split-size: is the number of text 
lines displayed оп the split screen's text window, and «window-state» indicates 
WINDOW, WRAP, or FENCE mode. «scrunch» is the aspect ratio of the screen, and 
defaults to 1. It can be reset using se t s c run ch (not available under CP/M 2.2). 


254 
[Ø SS 5 FENCE 2.51 
ss 
(split screen) Displays a window of text on the graphic screen. 


?ss 


window 


Allows the turtle to plot outside the visible graphic screen after a wrap or fence 
expression. 


?fence fd 300 

Turtle out of bounds 
?window 

?fd 300 
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wrap 


Makes the turtle reappear on the opposite side of the graphic screen when it exceeds 
the boundary. 


?cs wrap 
art 5 fd 1000 


?cs window 
?rt 5 fd 1000 


Turtle graphics: 
bk 


(back) Maves the turtle the input number of steps in the opposite direction of its 
heading. 


?cs fd 150 
?bk 50 


fd 


(forward) Moves the turtle the input number of steps in the direction of its current 
heading. . 


?fd 80 


* 
home 


Returns the turtle to position [0 0] (the centre of the graphic screen) heading 0 
(north). 


2fd 100 
?rt 45 
?fd 100 
?home 
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ht 
(hide turtle) Makes the turtle invisible; speeds and clarifies drawing. 
?ht 


?cs fd 50 
?st 


1t 
(left) Rotates the turtle the input number of degrees to the left. 


2lt 90 


pd 


(pen down) Puts the turtle’s pen down; the turtle resumes drawing. 


?fd 20 pu fd 20 
?pd 
?fd 20 


pe 


(pen erase) Changes the turtle's pen colour to the background colour; the turtle 
erases drawn lines. 


?fd 50 
?pe 

?bk 25 
?fd 50 
?pd fd 25 


pu 
(реп up) Picks the turtle's pen up; the turtle stops drawing. 
?fd 30 
?pu 


?fd 30 
?pd fd 30 
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px 


(pen exchange) Makes the turtle exchange the colour of any previously coloured pixel 
initstrailwith the reverse or logical colour compliment. 


244 20 pu fd 20 
?pd setpc 3 fd 20 
Эрх 

?bk 80 


?fd 80 
?pd bk 100 


xt 
Rotates the turtle the input number of degrees to the right. 


?rt 90 


seth 

(set heading) Turns the turtle to the absolute heading specified by the input number 
of degrees; positive numbers turn the turtle clockwise; negative numbers turn the 
turtle counter-clockwise. 


?seth 90 


зеїрс 
(set pen colour) Sets the turtle's реп to that specified Бу the input number. 


?setpc 1 


setpos 
(set position) Moves the turtle to the position specified in the input co-ordinate list. 


?setpos [30 201 
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* 


setx 


Moves the turtle's horizontal position to the x co-ordinate specified by the input 
number (see also s e t y). 


?setx 80 
?fd 100 
?setx -50 
?fd 58 


* 


sety 


Moves the turtle's vertical position to the y co-ordinate specified by the input number 
(see also s e t x). 


?sety 90 
?fd 20 
?sety -50 
?fd 50 


st 
(show turtle) Makes the turtle visible if hidden. 


?ht 
?fd 50 
?st 


tf 


(turtle facts) Outputs information about the turtle. The format is: | хсог» «усог» 
«heading» <penstate> :pencolour n; -shownp»] where «хсот» is the turtle’s x co-ordinate. 
<ycor is the turtle's y co-ordinate. «heading» indicates the compass direction the 
turtle is facing. sshownp is TRUE ifthe turtle is visible. .penstate; indicates P D (pen 
down), PE (pen erase), РХ (pen exchange) ог PU (pen up). :pencolour n> identifies the 
pen’s number. 


?setpos [15 301 

?rt 60 

?setpc 3 

?pe 

?ht 

?tf 

C15 30 60 PE 3 FALSE] 
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* 


towards 


Outputs a heading that would make the turtle face the position specified in the 
co-ordinate list. 


?seth towards list :x су 


Workspace Management: 


er 
(erase) Erases the specified procedure(s) from the workspace. 
?er "square 


* 
erall 
Erases all the procedures and variables from the workspace. 


?erall 


em 
(erase name) Erases the specified variable(s) from the workspace. 


?make "side [1001 
?make "angle [451 
2:side :angle 
t1001 

[451 

?егп [side angle] 
2:side 

side has no value 


nodes 


Outputs the number of free nodes in the workspace. 


?nodes 
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* 
noformat 


Removes procedure formatting, including comments, from the workspace to free 
morenodes. 


?noformat 


* 


poall 
Displays the definitions of all procedures and variables in the workspace. 
?poall 


* 
pons 


Displays the names and values of all global variables in the workspace. 


?pons 
medium is 40 
small is 20 
large is 80 
* 
pops 
Displaysthe names and definitions ofall procedures in the workspace. 
?pops 
recycle 


Frees as many nodes as possible and re-organises the workspace. 


?recycle 
?nodes 
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Property Lists: 
glist 


(get list) Outputs a list of all the objects in the workspace that have the input property 
name in their property lists. 


201155 ".DEF 


gprop 


(get property) Outputs the property value of the input property name of the 
input-named object. 


?паке “height "72 
?gprop "height ".APV 
72 


plist 
(property list) Outputs the property list of the input-named object. 


2plist "height 
[.APV 721 


pprop 


(put property) Puts the input property pair into the input-named object’s property 
list. 


Эрргор "master ".APV "Scott 
?:master 
Scott 


* 


pps 
Displays the non-standard property pairs of all objects in the workspace. 


2pprop "Sally “extension 213 
?pps 

Sally's extension is 213 
2plist "Sally 

[extension 213J 
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remprop 


(remove property) Removes the specified property from the input- named object 
property list. 


?remprop "master: ".APV 


Disc Files: 

* 

changef 

Changes the name ofa file in a disc directory. 
?dir 
[SQUARE CIRCLE STARS] 
?changef "boxes "square 


?dir 
CBOXES CIRCLE STARS] 


* 
defaultd 
Outputs the name of the current default drive. 


?defaultd 
А: 


dir 


(directory) Outputs a list of Dr. LOGO file names on the default or specified disc; 
accepts wild-cards. 


2діг "a:2222222? 


wild-card characters. Note that the * wild-card is not supported in Dr. LOGO.) 
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* 
dirpic 

Outputs a list of picture file names from the default or the specified disc. Accepts an 
ambiguous filename. 


2dirpic "b: 
CMY_PIC SQUARES STARS NOTES] 


load 
Reads the input-named file from a disc into the workspace. 


?load "myfile 
?load "b:shapes 


* 
loadpic 
Re-creates the design, saved in the input-named picture file onto the graphic screen. 


?loadpic "my_pic 
?loadpic "b:my_pic 


save 
Writes the contents ofthe workspace to the input-named disc file. 
?save "shapes 


NOTE - Before saving, insert a formatted disc with enough free space for the file that. 
you wish to save. Do not save files onto your master system disc; indeed you should 
NEVER even risk writing to it by closing its write-protect holes. 


Ifyou are using the CP/M 2.2 version of Dr. LOGO (on Side 4 of your master package), 
you cannot change discs mid-session, so it is vital that your CP/M 2.2 Dr. LOGO 
working disc has plenty of free space for programs. 
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savepic 

Writes the contents of the graphic screen to the input-named picture file. 
?savepic "my pic 
?savepic "Ь:ту_ріс 


NOTE - Before saving, insert a formatted disc with enough free space for the file that 
you wish to save. Do not save files onto your master system disc; indeed you should 
NEVER even risk writing to it by closing its write-protect holes. 


Ifyou are using the CP/M 2.2 version of Dr. LOGO (on Side 4 of your master package), 
you cannot change discs mid-session, so it is vital that your CP/M 2.2 Dr. LOGO 
working disc has plenty of free space for programs. 


* 

setd 

(set drive) Makes the specified drive the default drive. 
?defaultd 


?dir 

CBOXES CIRCLE STARS] 
?setd "b: 

?defaultd 

B: 

?dir 

CTRIANGLE HOUSE] 


Keyboard and Joystick: 
buttonp 


(button pressed) Outputs TRUE if the button on the specified joystick is down; 
numbers 0 or 1 identify the two possible joysticks. 


?to fire 

>label “loop 

>if (buttonp Ø) [pr [fire 0111 
>if (buttonp 1) [pr [fire 1111 
>go "loop 

>end 


The position of the joystick is tested by padd Le. 


Introduction to Logo Chapter 6 Page 35 


keyp 


Outputs TRUE if a character has been typed at the keyboard and is waiting to be 
read. 


2to inkey 


>if keyp Сор rc] Сор "J 
>end 


paddle 


Returns the state of either joystick 0 or 1. The positions of the joystick are indicated as 
follows: 


Value returned Meaning 
255 Nothing pressed 
0 р 
1 Upandright 
2 Right 
3 Down and right 
4 Down 
5 Down and left 
6 Lei 
7 Upandleft 
2paddle 0 
255 


The fire buttons are tested by but tonp. 


re 

(read character) Outputs the first character typed at the keyboard. 
?таке "key гс 

«then press X key.... 


?:key 
x 
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yl 


(read list) Outputs a list that contains a line typed at the keyboard; input must be 
followed by a carriage return. 


?make "instr_list rl 
repeat 4 [fd 50 rt 901 


2:instr_list 
[repeat 4 [fd 50 rt 9011 


rq 


(read quote) Outputs a word that contains a line typed at the keyboard; input must be 
followed by a carriage return. 


?таКе "command rq 
repeat 3 [fd 60 rt 1201 


?:command 
repeat 3 [fd 60 rt 1201 


Sound: 


The sound commands are unique to the AMSTRAD implementation of Dr. LOGO and 
are similar to their AMSTRAD BASIC counterparts. 


Refer to part 9 of the Foundation course for further information. 


sound 
Put a sound into the sound queue. The format is: [channel status» «tone period 
«duration: «volume: «volume envelope» «tone envelope» «noise:] The parameters after 
duration are optional. 

?sound C1 20 501 
env 
Set up a volume envelope. The format is: [envelope number» «envelope section(s)>] 


?env L1 100 2 201 
?sound [1 200 300 5 11 
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ent 
Set up a tone envelope. The format is:[envelope number» envelope section(s).] 


?ent C1 100 2 201 
?sound [1 200 300 5 1 11 


release 


Releases sound channels that have been set to a hold state in a sound command. 
The channels to release are indicated as follows: 

Input value Channels released. 

None 

A 

B 

AandB 

с 


AandC 
BandC 
AandBandC 


RELESI- 


?release 1 


Flow of Control: 
bye 
Exits the current session of Dr. LOGO. 


?bye 


co 
Ends a pause caused by [CONTROL]Z, pause or ERRACT 


?co 
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go 


Executes the line within the current procedure following а Labe L expression with 
the same input word. 


>go "loop 
if 


Executes one of two instruction lists depending on the value of the input expression; 
input instructions must be literal lists enclosed in brackets. 


>if (a>b) Cpr Га is bigger11 
>Cpr Cb is bigger11 


label 
Identifies the line to be executed after a go expression with the input word. 


>label "Loop 


op 


(output) Makes the input object the output of the procedure and exits the procedure 
at that point. 


?op Cresult] 


repeat 
Executes the input instruction list the input number of times. 


?repeat 4 [fd 50 rt 901 
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run 
Executes the input instruction list. 


?make "instr List Lfd 40 rt 901 
?run :instr-list 


stop 


Stops the execution of the current procedure and returns to TOPLEVEL (the ? 
prompt) or the calling procedure. 


?stop 


wait 


Stops procedure execution for the amount of time specified by the input number. The 
amount of time = input number * 1/60 seconds. 


?wait 200 


Exception handling: 
catch 


Traps errors and special conditions that occur during the execution of the input 
instruction list. 


>catch "error C+ 11 (11 


>pr СІ am hereJ 
1 ат here 


error 


Outputs a list whose elements describe the most recent error. 


>catch "error Cdo.until.error] 
>show error 
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* 


notrace 
Turns off trace monitoring of procedure execution (see t race). 


?notrace 


* 


nowatch 
Turns off watch monitoring of all or specified procedure(s) (see wa t ch). 


?nowatch 


pause 


Suspends the execution of the current procedure to allow interaction with the 
interpreter or editor. 


>if :size»5 [pause] 


throw 
Executes the line identified by the input name іп a previous c a t ch expression. 


?throw "TOPLEVEL 


* 


trace 
Turnson trace monitoring of procedure execution. 


?trace 


* 
watch 


Turns on watch monitoring of all or specified procedure(s). 


?watch 
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System Primitives: 
.contents 


Displays the contents of Dr. LOGO symbol space. 


.deposit 


Puts second input number into the absolute memory location specified by the first 
input number. 


.examine 
Displays the contents ofthe absolute memory location specified. 


* 


in 
Retrieves the current value ofthe input-numbered port. 


* 
out 


Sends the input value to the input-numbered port. 


System Variables: 


ERRACT 


When TRUE, causes a pause when ап error occurs, then returns to TOPLEVEL. 


FALSE 


System value. 


Chapter 6 Page 42 Introduction to Logo 


REDEFP 


When T RUE allows re-definition of primitives. 


TOPLEVEL 


throw "TOPLEVEL willexit all pending procedures. 


TRUE 


System value. 


System Properties: 

-APV 

Associated property value; the value ofa global variable. 
.DEF 

Definition of a procedure. 


* 


.ENL 
End ofa procedure line that is broken by a carriage return or spaces. 


* 


.EMT 


Beginning ofa procedure line that is broken by a carriage return and spaces. 


.PRM 


Identifies a primitive. 


REM (or;) 


Remarks or comments. 
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Chapter Z 
For your reference.... 


This chapter provides much of the reference information that you 
are likely to require as you learn to use this computer. 


Subjects covered: 


Cursor locations and control code extensions 
Interrupts 

ASCII and graphics characters 

Key references 

Sound 

Error messages 

BASIC keywords 

Planners 

Connections 

Printers 

Joysticks 

Disc organisation 

Resident System eXtensions (RSX’s) 
Memory 

CP/M Plus Terminal Emulator 
CP/M Plus Character Set 


жж 


SEO Ob Ob bb Ob bt Ж 


For a complete guide to the BASIC and firmware for the CPC6128, consult AMSOFT 
manuals, SOFT 967 and SOFT 968 respectively. 


Part 1: BASIC Cursor locations and control 
code extensions 


Ina variety of applications programs, the text cursor may be positioned outside the 


current window. Various operations force the cursor to a legal position before they 
are performed, these being as follows: 
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1. Writingacharacter 
2. Drawing the cursor ‘blob’ 


3. Obeying the control codes marked with an asterisk in the list ahead. 


The procedure for forcing the cursor to a legal position is as follows: 


1. Ifthe cursor is to the right of the right hand edge, then it is moved to the leftmost 
column of the next line down. 


2. Ifthe cursor is to the left of the left hand edge, then it is moved to the rightmost. 
column of the next line up. 


3. Ifthe cursor is above the top edge, then the window is rolled down a line and the 
cursor is set to the top line of the window. 


4. Ifthe cursor is below the bottom edge, then the window is rolled up a line and the 
cursor is set to the bottom line of the window. 


The tests and operations are done in the order given. The illegal cursor positions may 
be zero or negative, which are off to the left or above the window. 


Character values in the range 0 to 31 sent to the text screen do not produce a 
character on the screen but are interpreted as CONTROL CODES (and should not be 
injudiciously applied). Some of the codes alter the meaning of one or more of the 
following characters, which are the code’s parameters. 


А control code sent to the graphics screen will merely print the conventional symbol 
related to its function if accessed via the keyboard (e.g. &07 ‘BEL’ - [CTRL] G). It will 
execute its control function if addressed using the form of the command: 


PRINT СНК5 (807), or PRINT " € " (where the 2 is obtained by pressing 
[CTRL] G within the PRINT statement). 


The codes marked * force the cursor to a legal position in the current window before 
they are obeyed - but may leave the cursor in an illegal position. The codes and their 
meanings are described with first their HEX value (&XX), then the decimal 
equivalent. 
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BASIC Control characters 


Value Name Parameter Meaning 
&00 0 NUL Noeffect. Ignored. 
8011 SOH Oto 255 Print the symbol given by the 


parameter value. This allows the 
symbols in the range 0 to 31 to 
be displayed. 


&02 2 STX Turn off text cursor. Equivalent 
to CURSOR command with a «user 
switch» parameter value of 0. 


&03 3 ETX Turn on text cursor. Equivalent 
to CURSOR command with a «user 
switch» parameter value of 1. 
Note that to display a cursor 
from within a BASIC program 
(other than the automatic cursor 
generated when BASIC is awaiting 
keyboard input), а CURSOR 
command with a «system switch; 
parameter value of 1 must be 
used. 


8044 ЕОТ 0to2 Set screen mode. Parameter taken 
MOD 4. Equivalent toa MODE 
command. 


8055 ENQ Oto 255 Send the parameter character to 
the graphics cursor. 


&06 6 ACK Enable Text Screen. (See &15 NAK 
ahead.) 


4077 BEL Sound Bleeper. Note that this 
flushes the sound queues. 


&08 8 * BS Move cursor back one character. 
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Name Parameter Meaning 


* TAB Movecursor forward one character. 
* LF Move cursor down one line. 
* VT Move cursor up one line. 
FF Cleartext window and move 
cursor to top left corner. 
Equivalent toa CLS command, 

&0D 13 * CR Move cursor to left edge of 
window on current line. 

&0E 14 SO 0to15 Set Paper Ink. Parametertaken 
MOD 16. Equivalent to PAPER 
command. 

«ОЕ 15 SI 0to15 Set Pen Ink. Parameter taken MOD 
16. Equivalentto PEN command 

&10 16 * DLE Delete current character. Fills 
character cell with current 
PaperInk. 

&11 17 * DC1 Clear from left edge of window 


to, and including, the current 
character position. Fills 
affected cells with the current 
Paper Ink. 


&12 18 * DC2 Clear from, and including, the 
current character position to 
the right edge of window. Fills 
affected cells with the current 
Paper Ink. 


&13 19 * DC3 Clear from start of window to, 
and including, the current 
character position. Fills affected 
cells with the current Paper Ink. 
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Value Name 


&14 20* DC4 
&15 21 МАК 
&16 22 SYN 
&17 23 ETB 
&18 24 CAN 
&19 25 EM 

&1A 26 SUB 


Parameter 


Otol 


0to3 


Oto 255 
Oto 255 
Oto 255 
Oto 255 
Oto 255 
0 to 255 
0 to 255 
Oto 255 
Oto 255 


1to80 
1to80 
1to25 
1to25 


Meaning 


Clear from, and including, the current 
character position to the end of window. 
Fills affected cells with the current 
Paper Ink. 


Turn offtext screen. The screen will not 
react to anything sent to it until after an 
ACK (&06 6) is sent. 


Parameter MOD 2. Transparent 
option. 0 disables, 1 enables. 


Parameter MOD 4 

0 sets normal graphics ink mode 
1sets XOR graphics ink mode 
2sets AND graphics ink mode 

3 sets OR graphics ink mode 


Exchange Pen and Paper Inks. 


Set matrix for user definable 
character. Equivalent toa 
SYMBOL command. Takes nine 
parameters. The first parameter 
specifies which character's 

matrix to set. The next eight 
specify the matrix. The most 
significant bit ofthe first 

byte corresponds to the top left hand 
pixel ofthe character cell, the least. 
significant bit ofthe last byte 
corresponds to the bottom right 
hand pixel ofthe character cell. 


Set Window. Equivalent to a 

WINDOW command. The first two 
parameters specify the left and 

right hand edges ofthe window - the 
smaller value is taken as the left edge, 
thelargertheright. The second two 
parameters specify the top and bottom 
edges of the window - the smaller value 
is taken as the top edge, the larger the 
bottom edge. 
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Value Name Parameter Meaning 


&1B 27 ESC Noeffect. Ignored. 

&1C 28 FS Oto15 Set Ink toa pair of colours. 
0to31 Equivalenttoan INK command. 
0to31 The first parameter (MOD 16) 


specifies the Ink, the next two 
(MOD 32) the required colours. 
(Parameter values 27 to 31 are 
un-defined colours.) 


&1D 29 GS 0to31 Set Border to a pair of colours. 
0to31 Equivalent to a BORDER command. 
Thetwo parameters (MOD 32) 
specify the two colours. 
(Parameter values 27 to 31 are 
un-defined colours.) 


&1Е 30 RS Move cursor to top left hand 
corner of window. 
&1F 31 US 1to80 Move cursor to the given 
1to25 position in the current window. 


Equivalent toa LOCATE command. 
The first parameter gives the 
column to move to, the second 

gives the line. 


The housekeeping of the 6128 is provided by a sophisticated real time operating 
system. The operating system ‘directs the traffic’ through the computer from the 
input to the output. 


It primarily interfaces between the hardware and the BASIC interpreter - for 
example the ink flashing function, where BASIC passes the parameters - and the 
operating system gets on with the task, with one part determining what is required 
- and the other part determining the timing of these events. 


The machine operating system is generally referred to as the ‘firmware’, and 
comprises the machine code routines that are called by the high level commands in 
BASIC. 
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If you are tempted to POKE around in the machine memory addresses, or CALL the 
sub-routines, save your program and listing before doing so, or you may regret it! The 
extensive operating system firmware of the 6128 is described in SOFT 968, and is 
beyond the scope of this introductory user manual. 


In order to program extensively using machine code, it will be necessary to use an 
assembler. The DEVPAC assembler from AMSOFT comprises a relocatable Z80 
assembler, with editor, disassembler and monitor. 


Part 2: Interrupts 


The 6128 makes extensive use of Z80 interrupts to provide an operating system that 
includes several multi-tasking features, exemplified by the AFTER and EVERY 
structures described earlier in this manual. The precedence of the event timers is: 


Break ([ESC][ESC]) 

Timer 3 

Timer 2 (and the three sound channel queues) 
Timer 1 

Timer 0 


Interrupts should be included after considering the consequences of possible 
intermediate variable states at the point of interruption. The interrupt sub-routine 
itself should avoid unwanted interaction with the state of variables in the main 
program. 

The sound queues have independent interrupts of equal priority. Once a sound 
interrupt has started, it is not interrupted by any other sound interrupt. This enables 
sound interrupt routines to share variables with immunity from the effects 
mentioned above. 


When a sound queue’s interrupt is enabled (by using ON SQ GOSUB), it will 
immediately interrupt if the sound queue for that channel is not full, otherwise it will 
interrupt when the current sound ends and there is room for more in the queue. The 
action of interrupting disables the event, so the sub-routine must re-enable itself if 
further interrupts are required. 


Both attempting to issue a sound and testing the queue status will also disable a 
sound interrupt. 
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Part 3: BASIC ASCII and graphics 
characters 


ASCII 


The table below illustrates the standard ASCII reference character set using 
decimal, octal, and hex notation, together with the ASCII codes where appropriate. 
Each of the 6128 character cells is also represented in detail in the following pages. 


DEC OCTAL НЕХ ASCII characters OCTAL HEX ASCII 


000 00 NUL GCTRLIa) 144 
00! 01 SOH(CTRLA) 145 65 
02  STX(CTRUB) 146 

ЕТХ(СТАЦО) 47 67 
EOT (СТАЦО) 150 68 
ENQ (CTRLJE) 151 69 
ACK (ICTRUF) 152 6A 
BEL (СТЯЦО) 153 68 
BS (CTRLJH) 164 6С 
HT (CTRL) 155 60 
LF (CTRL) 156 6E 
Ут(СТАЦЮ 157 6F 
FF (CTRLIL) 160 70 
CR (СТАЦМ) 161 71 
SO(CTRLIN) 162 72 
SI(CTRLIO) 163 73 
OLE (CTRUP) 164 74 
DC1(CTRUO) 168 78 
DC2 (СТАЦА) 168 76 
0С3 (CTRLIS) 167 77 
оба (CTRUIT) 170 78 
МАК (СТВЦО) 171 79 
SYN (CTA 172 7A 
ETB (СТУ) 173 В 
САМ (СТАЦЮ 174 7C 
EM(CTRLY) 175 70 
SUB (CTRLIZ) We TE 
Esc 


ооз» .I-u^mMax€cCHu2oTOZXCRCHIrO-MmoOU»ÉoV (AV OG NO RUN 
Өесөнхихкєслелосоззслчотосоо 


$85$8898898889588285$9 
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Machine specific BASIC graphics character set 


‘The characters reproduced here are plotted on the standard 8 
x 8 cell matrix used to write the screen of the 6128. User 
defined characters may be grouped for special effects, and 
butted next to one another. See the section ‘User Defined 


Characters’ in the chapter entitled ‘At your leisure....’. 32 &H20 
&X00100000 


33 34 
&H21 &H22 &H23 &H24 
&X00100001 &X00100010 &X00100011 &X00100100 
i Ë 
ші 
m 
ш! 
37 38 39 40 
&H25 &H26 &H27 &H28 
&X00100101 &X00100110 &X00100111 &X00101000 


m 

41 43 44 

&H29 &H2A &H2B &H2C 
&X00101001 &X00101010 &X00101011 &X00101100 

LA 

45 46 47 48 

&H2D &H2E &H2F &H30 
&X00101101 &X00101110 &X00101111 &X00110000 
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49 
&H31 
8Х00110001 


53 
&H35 
&X00110101 


&H3D 


&H41 
&X01000001 


m 

ш [| 
50 
&H32 
&X00110010 


&H36 
&X00110110 


58 
&H3A 
&X00111010 


62 
&H3E 
&X00111110 


БЭ 


66 
&H42 
&X01000010 


51 
&H33 
&X00110011 


55 
&H37 
&X00110111 


59 
&H3B 
&X00111011 


63 
&H3F 
&X00111111 


67 
&H43 
&X01000011 


ШЕ 


52 
&H34 
&X00110100 


&H38 


60 
&H3C 
&X00111100 


64 
&H40 
&X01000000 


&H44 
&X01000100 
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69 70 71 72 
&H45 &H46 &H47 &H48 
&X01000101 &X01000110 &X01000111 &X01001000 


73 74 75 76 
&H49 &H4A &H4B &H4C 
&X01001001 &X01001010 &X01001011 &X01001100 


7 78 80 
&H4D &H4E &H50 
&X01001101 8Х01001110 &X01010000 


mi 
Ши 

81 82 83 84 

&H51 &H52 &H53 &H54 
&X01010001 &X01010010 &X01010011 &X01010100 

йл 
| 

85 86 87 88 

&Н55 &Н56 &Н57 &Н58 
8Х01010101 8Х01010110 8Х01010111 8Х01011000 
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[| 

89 90 91 92 
&H59 &H5A &Н5В &Н5С 
&X01011001 &X01011010 &X01011011 &X01011100 

- Л 

m- 

mi 

93 94 95 96 
&HSD &HSE &HSF &H60 
&X01011101 &X01011110 &X01011111 &X01100000 
9 98 100 
&H61 &H62 &H63 &H64 
&X01100001 8Х01100010 8Х01100011 8Х01100100 


&H65 &H66 &H67 &H68 
&X01100101 &X01100110 &X01100111 &X01101000 


105 107 108 
&H69 &H6A. &H6B &H6C 
&X01101001 &X01101010 &X01101011 &X01101100 
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a 
109 110 111 112 
&H6D &H6E &H6F &H70 
&X01101101 &X01101110 &X01101111 &X01110000 
18! 
113 114 115 116 
&H71 &H72 &H73 &H74 
&X01110001 &X01110010 &X01110011 &X01110100 


Е [] 
a 
117 118 119 120 
&H75 &H76 &H77 &H78 
8Х01110101 8Х01110110 8Х01110111 8Х01111000 
m 
121 122 123 124 
&H79 &H7A &H7B &H7C 
8Х01111001 8Х01111010 &X01111011 &X01111100 
126 127 128 
&H7E &H7F &H80 
&X01111101 &X01111110 &X01111111 &X10000000 
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133 
&H85 
&X10000101 


137 
&H89 
&X10001001 


141 


145 
&H91 
&X10010001 


130 
&H82 
&X10000010 


134 
&H86 
&X10000110 


138 
&H8A 
&X10001010 


&НВЕ 
&X10001110 


146 
&H92 
&X10010010 


131 132 


&H83 &H84 
&X10000011 &X10000100 


135 136 
&H87 &H88 
&X10000111 &X10001000 


139 140 


&H8B &H8C 
&X10001011 &X10001100 
НЬ 

143 144 

&H8F &H90 
&X10001111 &X10010000 

mi 
ГІ 

147 148 

&H93 &H94 
&X10010011 &X10010100 
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149 150 152 
&H95 &H96 &H97 &H98 
&X10010101 &X10010110 &X10010111 &X10011000 

r1 

тшшш шш! 

153 154 155 
&H99 &H9A &H9B &H9C 
&X10011001 &X10011010 &X10011011 
НЕ ш 

г 

Fm 

H i 
157 158 159 160 
&H9D &H9E &H9F &HA0 
&X10011101 &X10011110 &X10011111 &X10100000 
161 162 163 
&HA1 &HA2 &HA3 
8Х10100001 8Х10100010 &X10100011 8Х10100100 
РЕ m 
mi 

165 166 167 168 
&HA5 &HA6 &HA7 &HA8 
&X10100101 &X10100110 8Х10100111 8Х10101000 


For your reference.... Chapter 7 Page 15 


169 170 171 
&HA9 &HAA &HAB 
&X10101001 &X10101010 &X10101011 


172 
&HAC 
&X10101100 


173 174 175 
&HAD &HAE &HAF 
&X10101101 &X10101110 8Х10101111 


181 182 183 
&HB5 &HB6 &HB7 
8Х10110101 8Х10110110 8Х10110111 


185 186 187 
&HB9 &HBA &HBB 
8Х10111001 8Х10111010 8Х10111011 


176 
&HB0 
&X10110000 


&X10110100 


8Х10111000 


8Х10111100 
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190 191 192 
&HBE &HC0 
8Х10111110 8Х11000000 


194 
&HC2 
&X11000010 


196 


197 200 
&HC5 &HC8 
8Х11000101 8Х11001000 
201 202 204 
8НСА &HCC 
&X11001010 &X11001011 &X11001100 


205 206 207 208 
&HCD &HCE &HCF &HDO 
&X11001101 &X11001110 &X11001111 &X11010000 
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209 
&HD1 
&X11010001 


e 


213 
&HDS 
&X11010101 


217 
&HD9 
8Х11011001 


221 
&HDD 
&X11011101 


genes 


225 
&HE1 
&X11100001 


210 
&HD2 
&X11010010 


214 
&HD6 
&X11010110 


218 
&HDA 
8Х11011010 


222 
&HDE 
8Х11011110 


&X11100010 


211 212 


&HD3 &HD4 
&X11010011 8Х11010100 
| | ЕЗ 
ЕГІ 

215 216 

&HD7 &HD8 
&X11010111 &X11011000 
219 220 

&HDB &HDC 
8Х11011011 8Х11011100 


223 224 

&HDF &HE0 
8Х11011111 8Х11100000 
E 

227 228 

&HE3 &HE4 
&X11100011 &X11100100 
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229 230 231 232 


&HE5 &HE6 &HE7 &HE8 
&X11100101 &X11100110 &X11100111 8Х11101000 
L1 
ү 
233 234 
&HE9 &HEA 
&X11101001 &X11101010 &X11101011 &X11101100 
[| 
LT 
237 238 239 240 
&HED &HEE &HEF &HFO 
&X11101101 &X11101110 &X11101111 &X11110000 
| ш 
ЕН 
241 242 243 
&HF1 &HF2 &HF3 &HF4 
&X11110001 &X11110010 &X11110011 &X11110100 
БН шин 
Es m 
245 246 247 248 
&HF5 &HF6 &HF7 &HF8 
&X11110101 &X11110110 &X11110111 &X11111000 
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Б š 
249 251 252 
&HF9 &HFA &HFB &HFC 
&X11111001 &X11111010 &X11111011 &X11111100 
(шиш | 

ш 

ш! 
ш 

253 254 
&HFD &HFE &HFF 
&X11111101 &X11111110 8Х11111111 
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Part 4: Key references 


Default ASCII values (HEX) 


JOYSTICK 1 
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Expansion characters, 
default locations and 
values 


лллллл 


N/A | N/A ма | мл N/A | NA 722 NA ма [wa | на nra [wo [win ШЕЕ 
vn Ton on on n on ono n Tn е ESTE 
N/A |1 8 

3 


NA | ма [na [wA ма | мл | == N/A [wi [nia [мА ETE 


ТИС ЕТЕ 12 


wa КІЛЕ чл FEAT 


БЕТТЕ DEFAULTSETTING 
CHARACTER | CHARACTER ASCIIVALUE. 

0(128) n &30 

1(129) 1 &31 

2030) 2 &32 

3(131) 3 &33 

4(132) n &34 

5033) 5 &35 

801349) é &36 

7035) 7 &37 

8(136) 8 ва 

9(137) ° &39 

10(138) M &2E 

110139) [RETURN] жор 

12(140 | RUN"IRETURNJ | &52 &55 &4E 822800 


Note: Expansion characters 13 to 31 (141 to 159) have a null 
value by default. They have values assigned using the 
BASIC command KEY, and are assigned to keys using the 
command KEY DEF. 
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Keyandjoysticknumbers 


плллллаллллллалллллллллллллллллллллг 


===] [so [e] [o] s] 25 ETE JEJE 


67 | so | 68 во s [43] 22 | зв | за 27 [26 


7o (во | col бл |53 [52| аа | as |? 36 | 20 [> 


= ЕС ССЗ ЕТЕЛЕЗЕУЕТЕЗ 


23 ө 
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Part 5: Sound 


Notes and tone periods 


The table which follows, gives the recommended «бопе period: settings for notes in the 
usual even tempered scale, for the full eight octave range. 


The frequency produced is not exactly the required frequency because the «tone 
period» setting has to be an integer. The RELATIVE ERROR is the percentage ratio 
of the difference between the required and actual frequency. 


NOTE FREQUENCY PERIOD RELATIVE ERROR 

c 16.352 3822 -0.007% 

сӣ 17.324 3608 %0.007% 

р 18.354 3405 -0.007% 

ой 19.445 Sask 1620855 

Е 20.602 3034 +0. 

F 211827 2863 -0:016Х Octave -4 
FH 23.125 2703 %0.009% 

6 24.500 2551 -0.002% 

GH 25.957 2408 %0.005% 

А 27,500 2273 %0.012% 

A# 29.135 2145 -0.008% 

в 30.868 2025 %0.011% 

МОТЕ FREQUENCY PERIOD RELATIVE ERROR 

c 32.703 1911 -0.007Х 

cu 34.648 1804 %0.007% 

р 36.708 1703 %0.022% 

р 38.891 1607 -0.004% 

E 41.203 1517 %0.009% 

F 43.654 1432 %0.019% Octave -3 
F# 46.249 1351 -й.028% 

6 48.999 1276 %0.037% 

69 51.913 1204 %0.0057 

А 55.000 1136 -08.032Х 

A# 58.270 1073 %0.039% 

в 61.735 1012 -0.038% 
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NOTE FREQUENCY 
c 65.406 
cH 69.296 
D 73.416 
DH 77.782 
E 82.407 
F 87.307 
Fa 92.499 
6 97.999 
GH 103.826 
A 110.000 
АН 116.541 
B 123.471 

NOTE FREQUENCY 
c 130.813 
CH 138.591 


D 146.832 
ой 155.564 
E 164.814 
F 174.614 
FH 184.997 
6 195.998 
G# 207.652 
A 220.000 
АЙ 233.082 
B 246.942 


NOTE FREQUENCY 


c 261.626 
ся 277.183 


р 293.665 
D# 311.127 
Е 329.628 
Е 349.228 
ЕН 369.994 


G 391.995 
69 415.305 
А 440.000 
АН 466.164 
B 493.883 


PERIOD 


RELATIVE ERROR 


+0.0461 
%0.007% 
-0.037% 
+0.058% 
-0.057% 
%0.019% 
*0.0467 
+0.037% 
%0.005х 
-0.032% 
-0.055% 
-0.038% 


RELATIVE ERROR 


%0.046% 
%0.007% 
%0.081% 
%0.058% 
-0.057% 


+0.019% Octave-1 


+0.046% 
+0.037% 
%0.005% 
-0.032% 
-0.055Х 
-0.038Х 


RELATIVE ERROR 


%0.046% Middle C 


-0.215% 
+0.081X 
+0.058% 
+0.206% 


*0.019x Octave 0 


-0.032% International A 


-0.055% 
%0.356Х 


Octave -2 
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NOTE FREQUENCY PERIOD RELATIVE ERROR 
c 523.251 119 -0.374% 
cH 554-365 113 +0.229% 
р 587.330 106 -0.390% 
DH 622.254 180 -0.441% 
E 659.255 95 +0.206% 
F 698.457 89 -0.543% Octave 1 
FH 739.989 84 -0.548% 
в 783.991 80 *8.350x 
GH 830.609 75 -0.328% 
A 880.000 71 -0.032% 
AH — 932.328 67 -0.055% 
B — 987.767 63 -0.435% 
NOTE FREQUENCY PERIOD RELATIVE ERROR 
c 1046.502 60 +0. 462% 
cH 1108.731 56 
D 1174.659 55 
ри 1244.508 50 
E E 
F . 45 
F# 1479.978 42 Octave 2 
G 1567.982 40 
GW 16611219 38 
A 1760.000 36 
AH 1864.655 34 
B 1975.533 32 *1.134X 
NOTE FREQUENCY PERIOD RELATIVE ERROR 
с 2093.004 30 %0.462Х 
CH 2217.461 28 -0.662% 
D 2349.318 27 +11469% 
ри 2489.016 25 -0.441% 
E 2637.021 24 21:246% 
F 2793.826 22 -1.685 
F# 2959.955 21 -0.548% Octave3 
G 3135.963 20 +0.350% 
GH 3322.438 19 +8.992% 
^ 3520.000 18 +1.357% 
АН 3729.310 17 +1.417% 
B 3951.066 16 +11134% 


The above values are all calculated from International А as follows: 


FREQUENCY = 440% (2 7 COCTAVE+((N-10)/12))) 
PERIOD =ROUND(62500/ FREQUENCY) 


«where N is 1 for C, 2 for C#, 3 for D, etc. 


Chapter 7 Page 26 For your reference... 


Part 6: BASIC Error messages 


1 Unexpected NEXT 


A NEXT command has been encountered while not in a FOR loop, or the control 
variable in the NEXT command does not match that in the FOR. 


2 Syntax Error 


BASIC cannot understand the given line because a construct within it is not legal. 


3 Unexpected RETURN 


A RETURN command has been encountered when not in a sub-routine. 


4 DATA exhausted 


A READ command has attempted to read beyond the end ofthe last DATA. 


5 Improper argument 


This is a general purpose error.The value of a function's argument, or a command 
parameter is invalid in some way. 


6 Overflow 


The result of an arithmetic operation has overflowed. This may be a floating point 
overflow, in which case some operation has yielded a value greater than 1.7E 1 38 
(approx.). Alternatively, this may be the result of a failed attempt to change a 
floating point number to a 16 bit signed integer. 


7 Memory full 


The current program or its variables may be simply too big, or the control structure is 
too deeply nested (nested GO S UBs, WH I LEsor F ORs). 


A MEMORY command will give this error if an attempt is made to set the top of 
BASIC's memory too low, or to an impossibly high value. Note that an open file has a 
buffer allocated to it, and that may restrict the values that MEMORY may use. 
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8 Line does not exist 


The line referenced cannot be found. 


9 Subscript out of range 


One of the subscripts in an array reference is too big or too small. 


1@ Array already dimensioned 


One of the arrays in а D IM statement has already been declared. 


11 Division by zero 


May occur in real division, integer division, integer modulus or in exponentiation. 


12 Invalid direct command 


The last command attempted is not valid in direct mode. 


13 Type mismatch 


A numeric value has been presented where a string value is required or vice versa, or 
an invalidly formed number has been found in READ or INPUT. 


14 String space full 


So many strings have been created that there is no further room available, even after 
‘garbage collection’. 


15 String too long 


String exceeds 255 characters in length. May be generated by appending strings 
together. 


16 String expression too complex 


String expressions may generate a number of intermediate string values. When the 
number of these values exceeds a reasonable limit, this error results. 


Chapter 7 Page 28 For your reference... 


17 Cannot CONTinue 
For one reason or another the current program cannot be restarted using CONT. Note 
that CONT is intended for restarting after a STOP command, [ESC] [ESC], or an 


error, and that any alteration of the program in the meantime makes a restart 
impossible. 


18 Unknown user function 


No DEF FN hasbeen executed for the F N just invoked. 


19 RESUME missing 


The end of the program has been encountered while in error processing mode (i.e. in 
an ON ERROR GOTO routine). 


20 Unexpected RESUME 


RESUME is only valid while in error processing mode (ї.е.іпап ON ERROR GOTO 
routine). 


21 Direct command found 
When loading a file, a line without a line number has been found. 


22 Operand missing 


BASIC has encountered an incomplete expression. 


23 Line too long 
Aline when converted to BASIC internal-form becomes too big. 


24 EOF met 
An attempt has been made to read past end of the file input stream. 


25 File type error 


The file being read is not of a suitable type. OPENIN is only prepared to open ASCII 
text files. Similarly, LOAD, RUN, etc, are only prepared to deal with file types 
produced by SAVE. 
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26 NEXT missing 


Cannot find a NEXT to match a FOR command. A line number accompanying this 
message indicates the F OR command to which this error applies. 


27 File already open 


An OPENIN ог OPENOUT command has been executed before the previously opened 
file has been closed. 


28 Unknown command 


BASIC cannot find a taker for an external command, i.e. a command preceded by a 
bar! 


29 WEND missing 


Cannot find a WEND to match a WHILE command. 


30 Unexpected WEND 


Encountered a WEND when not in a WHILE loop, or a WEND that does not match the 
current WHI LE loop. 


31 File not open 


(See the section ahead entitled ‘Disc errors’.) 


32 Broken in 


(See the section ahead entitled ‘Disc errors’.) 


AMSDOS Disc errors 


There are several errors that may occur during the processing of any filing 
operations, BASIC handles all such errors as ERRor number 32, however more 
specific information may be returned by the function DE RR when this error number 
is detected. This returns values as follows: 
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AMSDOS error DERR value 


0 Bor22 

14 142 128+14) 
15 143 (128+15) 
16 144 128+16) 
17 145 (128+17) 
18 146 (128+18) 
19 147 (128+19) 
20 148 (128+20) 
21 149 (128+21) 
22 150 (128+22) 
26 154 (128+26) 


Cause of error 


[ESC] has been pressed. 
The stream is not ina suitable state. 
Hard end of file has been reached. 


Bad command, usually an incorrect 
filename. 


File already exists. 

File does not exist. 

Directory is full. 

Discis full. 

Disc changed while files were open. 
File is Read/Only. 

Soft end of file has been detected. 


If AMSDOS has already reported an error, then bit 7 is set; hence the value of DERR 


is offset by 128. 


Other values returned by DERR originate from the disc controller and are bit 
significant, always with bit 6 set. Bit 7 indicates whether the error has been reported 


by AMSDOS (as explained above). The significance of each bit is as follows: 


Bit Significance 


Address mark missing. 


Overrun error. 
Data error - CRC error. 


NAAR Qo to O 


Not writable - disc is write protected. 
No data - can't find the sector. 
Drive not ready - no disc in the drive. 


Alwaysset to 1 to indicate error from disc controller. 
Set to 1 iferror has already been reported by AMSDOS. 
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ERR may also return 31 if access was attempted when no file was open. The usual 
way in which one may use ERR and DERR would be to include an ON 
ERROR GOTO which calls a short routine that checks if ERR has the value 31 or 
32, and if it is 32, DERR could be interrogated to give more detailed information 
regarding the nature of the error. For example: 


10 ON ERROR GOTO 1000 

20 OPENOUT "myfile.as 

30 WRITE /9,"test-data" 

40 CLOSEOUT 

50 END 

1000 amsdoserr=(DERR AND &7F):REM mask off bit 7 

1010 IF ERR<31 THEN END 

1020 IF ERR=31 THEN PRINT "are you sure you've typed 
line 20 correctly?":END 

1030 IF amsdoserr-20 THEN PRINT "disc is full, suggest 
you use a new data disc":END 

1040 IF amsdoserr-&X81001000 THEN PRINT "put a disc іп 
the drive, then press a key":WHILE INKEY 
WEND:RESUME 

1050 END 


Part 7: BASIC Keywords 


The following is a list of all AMSTRAD CPC6128 BASIC keywords. As such, they are 
reserved and can NOT be used as variable names. 


ABS, AFTER, AND, ASC, ATN, AUTO 
BINS, BORDER 


CALL, CAT, CHAIN, CHRS, CINT, CLEAR, CLG, CLOSEIN, CLOSEOUT, CLS, 
CONT, СОРҮСНК5, COS, CREAL, CURSOR 


DATA, DEC$, DEF, DEFINT, DEFREAL, DEFSTR, DEG, DELETE, DERR, DI, 
DIM, DRAW, DRAWR 


EDIT, EI, ELSE, END, ENT, ENV, EOF, ERASE, ERL, ERR, ERROR, EVERY, 
EXP 


FILL, FIX, FN, FOR, FRAME, FRE 
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GOSUB, GOTO, GRAPHICS 

HEXS, HIMEM 

IF, INK, INKEY, INKEYS, INP, INPUT, INSTR, INT 

JOY 

KEY 

LEFTS, LEN, LET, LINE, LIST, LOAD, LOCATE, LOG, 10610, LOWERS 
MASK, MAX, MEMORY, MERGE, MIDS, MIN, MOD, MODE, MOVE, MOVER 
NEXT, NEW, NOT 


ON, ON BREAK, ON ERROR GOTO Ø, ON SQ, OPENIN, OPENOUT, OR, 
ORIGIN, OUT 


PAPER, PEEK, PEN, PI, PLOT, PLOTR, POKE, POS, PRINT 


RAD, RANDOMIZE, READ, RELEASE, REM, REMAIN, RENUM, RESTORE, 
RESUME, RETURN, RIGHTS, RND, ROUND, RUN 


SAVE, SGN, SIN, SOUND, SPACES, SPC, SPEED, SQ, SQR, STEP, STOP, 
STR$, STRINGS, SWAP, SYMBOL 


TAB, TAS, TAGOFF, TAN, TEST, TESTR, THEN, TIME, TO, TROFF, TRON 
UNT, UPPERS, USING 

VAL, VPOS 

WAIT, WEND, WHILE, WIDTH, WINDOW, WRITE 

XOR, XPOS 

YPOS 


ZONE 
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Part 8: Planners 
Text and window planner - MODE 0 (20 columns) 
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Text and window planner - MODE 1 (40 columns) 
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Text and window planner - MODE 2 (80 columns) 
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Sound envelope/music planner 
HH 


Н Н 
ЕН d: 


HHH 


р 


ю 
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Part 9: Connections 


CPC6128 Input/Output Sockets 


DISCDRIVE2SOCKET ; 
MONITORSOCKET 2 — + урсо || EXPANSION SOCKET 


JOYSTICK SOCKET 


Joystick Socket 


VIEWED FROM REAR 


PNI UP PIN 6 FRE 2 
PIN 2 DOWN PIN 7 FIRE 1 
PIN 3 LEFT PIN 8 COMMON 


PIN 4 RIGHT | PIN 9 COM 2 
PIN 5 SPARE 
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Monitor Socket 


VIEWED FROM REAR 


PIN 1 RED 
PIN2 GREEN 
PIN3 BLUE 


Stereo Socket 


RIGHT 


PIN2RIGHT CHANNEL 


PIN 1 LEFT CHANNEL 
PINS GNI 


Tape Socket 


VIEWED FROM REAR 
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Expansion Socket 


VIEWED FROM REAR 


Disc Drive 2 Socket 


VIEWED FROM REAR 


B 10 12 14 16 18 20 22 24 26 28 30 32 34 


7 9 4 зз 15 7 9 21 23 25 27 29 31 эз 


READY GND 
М. РІМ19 MOTORON 
SIDE1SELECT PIN20 GND 

GND PIN21 М/С 

READ DATA PIN22 GND - 
GND PIN23 DRIVESELECT 1 
WRITEPROTECT PIN24 GND 

GND PIN25 М/С 

TRACKO PIN26 GND 

GND PIN27 INDEX 

WRITE GATE PIN28 GND 

GND PIN29 М/С 

WRITE DATA PIN3O GND 

GND РІМЗ1 М/С 

STEP PIN32 GND 

GND PIN33 М/С 


DIRECTION SELECT GND 
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Printer Port 


VIEWED FROM REAR 


9 6 36 14 13 2 now 9 87 665 4 3 2 1 


35 34 3) 32 31 30 29 з 27 26 25 24 23 2 ю тз 


АП other pins NC 


Part 10: Printers 


Printerinterfacing 


The 6128 allows the connection and use of an industry standard ‘Centronics style 
interface' printer. 


The printer cable is simply constructed as a one-to-one connection between the 
PRINTER socket at the rear of the computer, and the connector on the parallel 
printer. Note that there are two less ‘fingers’ on the computer printed circuit board 
than on the printer connector. This is to allow the use of a standard printed circuit 
board edge connector. 


The actual pin interface details are illustrated in part 9 ofthis chapter. 


The cable should be constructed so that pin 1 from the computer connects to pin 1 on 
the printer; pin 19 from the computer to pin 19 on the printer, etc, etc. However, pins 
18and36 ofthe printer should NOT be connected to the computer. 
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Note that although there are 17 fingers on the upper row of the computer's PRINTER 
socket, the lower row of fingers is numbered 19 onwards (rather than 18 onwards). 
This is so that every wire used, connects between exactly the SAME NUMBERED 
finger of the computer’s edge connector as pin of the socket on the printer itself. 


The computer uses the BUSY signal (pin 11) to synchronise with the printer, and will 
wait ifthe printer is OFF-LINE. 


There are no user set-up commands required, and the output is directed to the printer 
by specifying stream #8. 


Although the CPC6128's PRINTER port is envisaged for use with low cost dot-matrix 
printers; with a suitable interface it will support daisywheel printers, graphics 
plotters, and multi-colour ink-jet printers. The key to compatibility is the standard 
parallel interface. 


The customised software in the AMSTRAD DMP2000 and DMP1 printers facilitate 
dot-graphics operation, together with the printing of complete screen dumps. 


Printer configuration 


A facility is provided whereby special characters which may appear on the screen and 
which are supported by the AMSTRAD DMP2000 and DMP1, will be printed even 
though the character codes for the screen and printer may be different. The majority 
of these symbols will only be available when the printer is switched to one of its 
foreign language modes. For example: 


PRINT СНК5(8А0) 
^ 


PRINT #8,CHR$(&AØ) 
^ is printedon the printer. 


This works even though the character code for a circumflex accent on the printer is 
&5E. In other words, the printer routine has recognised &A @ as one of the codes held 
inaprinter translation table, and has translated it to &5 E so that the same character 
appearing on the screen will be printed by the printer. The code &5E will produce a 
circumflex accent on a printer no matter which language mode the printer is set to 
(this is not true for all the characters in the translation table). The other characters in 
the table are as shown in the following table: 
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CHR$| Characte Printer U.K. U.S.A.| France| Germany | Spain 
OnScreen| Translation 


“А0 ж &5E ж ж ж 
8А2 m &7B t t t 
&A3 Ї &23 £ # # 
&A6 s &40 + + + 
&AE é &5D + Y t 
&AF i &5B т + + 


+ For the printed character, refer to your printer instruction manual. 


The above is an extract from the default translations, which can be changed if 
required. See the Firmware manual (SOFT 968) for further details. 


Part 11: Joysticks 


The built-in software in the computer supports either one or two joysticks. These are 
treated as part of the keyboard, and as such, may be interrogated by INKEY and 
INKEY$. 


Note that in the majority of cases, the main ‘fire’ button on a joystick is interpreted as 
‘Fire 2’ by the 6128. 


The functions J OY (0) and J OY (1) enable direct inspection of the first and second 
joysticks repectively. The function returns a bit-significant result which indicates 
the state of the joystick switches at the last keyboard scan. 


The table below indicates the values returned by both joysticks. The J 0 Y values are 
followed by values for use in statements which take key numbers as parameters (i.e. 
INKEY and KEY DEF). 


STATUS | JOY COMMAND KEY VALUES | 
BIT VALUE FIRST SECOND EQUIVALENT 
SET | RETURNED] JOYSTICK | JOYSTICK KEY 

Up 0 1 72 48 © 

Down 2 73 49 5 

Left 2 4 74 50 ж 

Right 3 8 75 51 T 

Fire2 4 16 76 52 © 

і 5 32 77 53 T 
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Note that when key values for the SECOND joystick are returned, the computer 
cannot tell whether those values have been generated by the joystick or by the 
equivalent keyboard key (indicated in the last column of the previous table). This 
means that the keyboard can be used as a substitute for the second joystick. 


Part 12: Disc organisation 


The BIOS supports three different disc formats: SYSTEM format, DATA ONLY 
format and IBM format. Under AMSDOS, the format of a disc is automatically 
detected each time a disc with no open files is accessed. To permit this automatic 
detection, each format has unique sector numbers. 


3 inch discs are double sided, but only one side may be accessed at a time depending on 


which way round the user inserts the disc. There may be a different format on each 
side. 


Common to all formats: 


Single sided (the two sides of a 3 inch disc are treated separately). 
512 byte physical sector size. 

40 tracks numbered 0 to 39. 

1024 byte CP/M block size. 

64 directory entries. 


SYSTEM format 


9 sectors per track numbered &41 to &49. 
2 reserved tracks. 


The system format is the main format supported, since CP/M can only be loaded from 


a system format disc. CP/M 2.2 also requires a system format disc to be inserted for a 
warm boot. The reserved tracks are used as follows: 


CP/M 2.2 CP/M Plus 


Track 0 sector &41 : boot sector for CP/M 2.2 | : boot sector for CP/M Plus 
Track 0 sector &42 : configuration sector 8 

Track 0 sectors &43 to &47 :unused H онай 

Track 0 sectors &48 to 649 š 

Tracklsecors&4lto&49 :) CCPand BDOS 


Note that VENDOR format is a special version of system format which does not 
contain any system software on the two reserved tracks. It is intended for use in 
software distribution. 
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DATA ONLY format 


9 sectors per track numbered &C1 to &C9. 
Oreserved tracks. 


This format is not recommended for use with CP/M 2.2 since it is not possible to ‘warm 
boot’ from it. However, if only CP/M Plus or AMSDOS is to be used, the DATA ONLY 
format affords a little more disc space. 


IBM format *CP/M 2.2 only 


8 sectors per track numbered &1 to &8. 
lreserved track. 


This format is logically the same as the single-sided format used by CP/M on the IBM 
PC. The 6128 will read and write to IBM format discs, but will not create or copy 
them. 


Part 13: Resident System eXtensions 
(RSX's) 


External commands were introduced in Chapter 5 (about AMSDOS). 
Fundamentally, an external command is a way of extending the repertoire of the 
BASIC by adding new commands signalled by a | prefix. The machine instructions 
for the AMSDOS new commands are included in a ROM, and the necessary 
housekeeping to add the commands is carried out automatically when the 6128 starts 
BASIC. 


It is also possible to add further external commands (after BASIC has started) by 
loading the machine instructions into RAM. Such new commands are called RSX's 
and operate in exactly the same way as ROM based extensions. RSX's have to be 
loaded from disc (or tape) each time the 6128 starts (or restarts) BASIC. Normally, 
RSX's will be used for controlling some sort of intelligent peripheral, such as a light 
pen or speech synthesiser. 


Chapter 8 describes the use of RSX's to access the 6128's second 64K of memory. 
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Part 14: Memory 


The CPC6128 contains 128K of RAM, and 48K of ROM. This is available to BASIC 
1.1 as shown below. The first 64K of RAM is nominally divided into four blocks (each 
of 16K) numbered Block 0 to Block 3. The screen uses Block 3 and the upper section of 
Block 2 is filled by system variables as indicated. 


FIRST вак OF RABE ‘SECOND вак OF там. 


NOTE w OEPENOS он EXTERNALLY FITTED яома-алагс WHEN NO EXTERNAL ROMS FITTED 
Memory Map for BASIC 1.1 


The user defined characters are initially positioned immediately above HIMEM. 
HIMEM may be altered by a MEMORY command but is also automatically lowered by 
4K to create a buffer whilst AMSDOS files are open. The number of user defined 
characters can only be altered if HIMEM is unchanged since the last time they were 
set (unless the last time they were set to ‘no user defined characters’ by a SYMBOL 
AFTER 256 command). When BASIC starts, the user defined characters are set as 
if a SYMBOL AFTER 240 command had been issued. 


It is, therefore, prudent to collapse the user defined character area before 
permanently changing HIMEM, then re-establishing the user defined characters in 
the new position. This will allow subsequent programs to alter the 
SYMBOL AFTERassignment. 
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The example below shows this scheme in operation when HIMEM is lowered in 
conjunction with loading an RSX. 


100 
110 
120 
130 
140 
150 


SYMBOL AFTER 256 ' collapse user defined characters 
rsxaddress-HIMEM-rsxlength 

MEMORY rsxaddress-1 

LOAD "rsxcode",rsxaddress 

CALL rsxaddress ' log on rsx 

SYMBOL AFTER 140 ' restore user defined characters 


Memory Map with RSX loaded in recommended position 


Additional /O 


Most I/O port addresses are reserved by the computer - in particular, addresses below 
&7FFF should not be used at all. 
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It is intended that the part of the address AO - A7 should reflect the type of external 
T/O device, and that address lines A8 and A9 may be decoded to select registers within 
the I/O device. Of the remaining address lines, only А10 must be decoded (as low) 
whilst lines A11 to A15 are high. Thus each device may have registers addressed as 
&F8??, &F9??, &FA??, and &FB??, where 22 is іп the range DC to DF for 
communications interfaces, and E0 to FE for other user peripherals. 


Note that Z80 instructions which place the B register on the upper half of the address 
bus (А15 - A8) must be used. 


Sideways ROMs 


Provision is made for additional ROMs to be selected in place of any part of the 
on-board ROM. The address arbitration and bank selection logic will be contained in 
a module connected to the expansion bus, but all the signals required are brought to 
theexpansion bus. 


Part 15: CP/M Plus Terminal Emulator 


In part 1 of this chapter, a table of control characters (together with their respective 
actions) was illustrated. These actions are performed when text is sent to the screen 
by BASIC or CP/M 2.2, and were chosen both to be simple to use and to reflect the 
facilities available in the Firmware Text VDU. These facilities are unique to 
AMSTRAD computers, and software must therefore be adapted to their use. 


In the Business and Commercial environment of CP/M Plus software, it is normal to 
expect a range of 'standard' Text VDU facilities in order that software is easily 
portable and ‘installable’ from one machine to another. The CP/M Plus 
implementation on the 6128 includes a Terminal Emulator which provides facilities 
very similar to a Zenith Z19/Z29 VDU. The installation procedure for CP/M Plus 
software will normally include, as standard, an option for this type of terminal. 


The facilities offered by the CP/M Plus Terminal Emulator include many of those 
previously offered by the Firmware Text VDU although different control codes are 
required. 

There are a considerable number of new and more sophisticated operations. 
Characters in the range &20 to &FF are displayed at the current cursor position. If 
the cursor is not at the right-hand column, then it is moved right by one column. If the 


cursor is at the right-hand column and wrapping is enabled, then it is moved to the 
left-hand column on the next line, scrolling up ifnecessary. 
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Characters in therange &00 to &1F are interpreted as control codes as follows: 


&07 BEL 
&08 BS 
«ОА LF 
&0D CR 
&1B ESC 


Sounds a beep. 


Backspace. Move left one column. If the cursor is on the left-hand 
column and not on the top row and wrapping is enabled, then it is 
moved to the right-hand column of the row above. 


Linefeed. Move cursor down one line, scrolling up if necessary. 


Carriage return. Move cursor to left-hand column of current row. 


Introduce an escape sequence. 


Allother control codes are ignored. 


The following escape sequences are recognised. Any other characters following an 
escape are displayed, and the cursor advanced. This feature may be used to display 
the characters corresponding to control codes &00 to &1F. (Note that many 
applications languages expand the control code &09 (TAB) to a number of spaces and 
therefore the sequence [ESC][TAB] will often not display the character бог &09.) 


ЇЕВС10 


[Е5С]1 


ЇЕВС12 n 


Disable status line. Disc system messages will appear with CRT 
output. CRT may use the bottom line of the screen. 


Enable status line. Disc system messages will appear on the 
bottom lineofthe screen. 


Change character set (see part 16 of this chapter). «n is the 
language parameter which is masked with &07. Certain 
character matrices in the range &20 to &7F are swapped with 
other characters in the range &80 to &FF. The action of this 
command is very similar to that used to control printers which 
have software-selectable international character sets. 


am-0 
а›=1 
m=2 
m=3 
ар=4 
qo-5 
m=6 
а=7 


USA 
France 
Germany 
UK 
Denmark 
Sweden 
Italy 
Spain 
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[ESC]3 «m» 


IESCJA 
ТЕЗСІВ 
[ESCIC 
(ESC]D 
[ESCIE 


IESCIH 
[ESC]I 


[ESC]J 


[ESC]K. 


[ESCIL 


[ESC]M 


[ESC]N 


ПЕВСҮҮ а» «e 


Change screen mode. «т»-всгееп mode+&20. The value is 
masked with &3 to give the mode 0 to 2. Mode 3 is ignored. The 
screen is cleared, but the cursor position is unaffected. 


Cursor up. Ifon top row, then do nothing. 
Cursor down. Ifon bottom row, then do nothing. 

Cursor forward. Ifon right-hand column, then do nothing. 
Cursor backwards. Ifon left-hand column, then do nothing. 


Erase page. The cursor position is unaffected. This command 
clears the entire screen, even if set to 24x80 mode. (Other escape 
codes will only affect the 24x80 area when 24x80 mode is set). 


Home cursor. Move cursor to top row, left-hand column. 


Reverse index. Move cursor up one row. Scroll screen down if 
necessary. 


Erase to end of page. Includes character at cursor position. The 
cursor position is unaffected. 


Erase to end of line. Includes character at cursor position. The 
cursor position is unaffected. 


Insert Line. All rows below and including the cursor line are 
scrolled down. The cursor row is cleared. The cursor position is 
unaffected. 


Delete line. All rows below and including the cursor row are 
scrolled up. The bottom row is cleared. The cursor position is 
unaffected. 


Delete character. All characters to the right of the cursor are 
shuffled left one character position. The character at the end of 
the row is cleared. The cursor position is unaffected. 


Moves cursor to given position. If position is beyond the edge of 
the screen, then the cursor is moved to the edge of the screen. 
a»—row position--&20, .c,=column position+&20. Тһе top 
left-hand corner is row 0, column 0. 
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For your reference... 


[ESC]b «ер» Set foreground colour. Affects all characters on the screen. «ср» 
is the colour parameter and is masked with &3F then treated as 
three 2-bit numbers each specifying the intensity of one of the 
three primary colours: bits 0,1 for Blue, bits 2,3 for Red, and bits 
4,5 for Green. The 6128 provides three levels of intensity, 
mapped onto the four specifiable levels as: 


CPC6128 Zero intensity HalfIntensity Full intensity 


Colour bits 00 binary Olor 10binary 11 binary 


[ESC]e «ep» Set background colour. Affects all the background and border 
on the screen. The colour is specified as above. 


[ESC]d Erase to beginning of page. Includes character at cursor 
position. The cursor position is unaffected. 


[ESC]e Enable cursor blob. To prevent unsightly flashing, the cursor is 
not turned on during normal text outputting until 1/10 second 
after the last character was written. 


[ESC]f Disable cursor blob. 

{ESC} Save the cursor position. 

[ESC]k Restore cursor position as saved by [ESC]j. 

[ESC]I Erase line. The cursor position isunaffected. 

[ESC]o Erase to beginning of line. Includes character at cursor position. 
The cursor position is unaffected. 

[ESC]p Enter inverse video mode. Printable characters are written 
with the foreground and background colours reversed. 

IESC]q Exit inverse video mode. 

[ESCI]r Enter underline mode. (Not supported on CPC6128) 

[ESC]u Exit underline mode. (Not supported on CPC6128) 

[ESC]v Wrap at end ofline. 
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[ESCIw Discard at end of line. 


[ESCIx Enter 24x80 mode. Some applications programs may require a 
‘standard’ 24x80 screen. This command will enable such a 
screen regardless of the full size of the screen which may depend 
upon machine, country and whether or not the status line is 
enabled. The screen is cléared. 


[ESCIy Exit 24x80 mode. The screen is cleared. 


Part 16: CP/M Plus Character Set 


In part 10 of this chapter, a printer translation table was described. The purpose of 
this table is to convert certain of the characters from the BASIC and CP/M 2.2 
character set into a form where they can be printed when a language selection is 
made on the printer. The facility is somewhat limited because very few printers" 
foreign characters actually appear in the BASIC character set. 


Although this printer translation scheme still operates under CP/M Plus, the 
character set has been enhanced to allow an almost complete correspondence 
between the screen characters and the printed characters. (The one missing screen 
symbol is the Swedish Currency Symbol replacing the $). The table below confirms 
thearrangement: 


23 24 40 5B 5C 5D 5E 60 7B 7C 7D 7E 


USA 


France 
Germany 
UK 
Denmark 
Sweden 
Italy 


Spain 


CP/M Plus International Character Set 
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Operating the machine in a foreign environment requires two actions: 


1. The printer itself should be set to the required language (often by small (DIP) 
switches, though some printers allow control codes to be sent). 


2. Тһе required screen character set must be invoked, either by the transient 
command: 


LANGUAGE n, 

...or by sending 

[ESC]2 n> 

...to the Terminal Emulator. 
In practice, the initialisation can be performed as part of the PROFILE.SUB 
operation, using the LANGUAGE and SETLST facilities. CP/M Plus is shipped with 


the USA environment, mainly because the keyboard displays a # over the 3 key. It is 
common practice to operate in the UK environment when doing word processing. 


7 bit software.. 


Although this foreign language facility is very powerful, it has to be stressed that the 
‘normal’ (or USA) characters which have been replaced by the ‘local’ foreign 
characters are no longer displayable. This is a common and intractable compromise 
when dealing with 7-bit software. Nearly all available software (including most 
CP/M Plus utilities, Word processors, and languages) operate with only a 7 bit 
character set. In the UK it is fairly well accepted that the # disappears to be replaced 
by the £ not only in word processing (where it is regarded as desirable) but also in 
program listings, e.g. LIST £8, where it is regarded as undesirable. However, in 
time, everyone becomes used to performing the mental transformation. 


Unfortunately, the other foreign language transformations also replace characters 
such as the vertical bar and square brackets, and although the resulting availability 
of accented characters improves the readability of text, in situations where bars and 
brackets are required by the application program, e.g. DIR CFULLI, the 
readability and (if the keytops have been exchanged) the typeability is markedly 
diminished. Remember that the application program is working in ASCII values, 
quite oblivious to the shape of the characters on the screen. The problem is that with 
7-bit software, there are simply not enough ASCII values to go around. 
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Working with 8 bit charactersets.... 


The BASIC character set has 256 different symbols, with the values 128 to 255 (&80 
to &FF) containing various graphic symbols of particular use in games and home 
computing (dancing men, hearts/clubs/diamonds/spades, etc.). CP/M Plus also has 
256 characters available, but the second 128 are different from those in BASIC, and 
reflect the International and Business flavour of the CP/M Plus environment: 


0123456789ABCDEF 0123456789ABCDEF 
OOF ASX Sa ЛЬЕБЄ9ХӨОй SSeS 14152511 we 
«ВбосӨохрируохяхийн assázteshuktsetitet 
SRMESZENOCDHRHEP EEL gae-*£ge"stutu«»méi 
0918г23456788::<->? f ç = = X; te 38 Se 7 Ë O @ x ki 
BABCDEFGHIJKLMNO AELTOGAETGOAETOODY 
PGRSTUUMXVZENIT-— BAEZGUCHEARDHABE SEE 
Хавсйеғаһізкітто аёхаааётаоаётаоөч 
pqrstuvuxuzttr^o Wexsuüuceaoüü&aseeos 


NOaaonao 
ттооо>оос 


Characters 010 127 (&00 to &7F) Characters 128 to 255 (88010 &FF) 


The Standard CP/M Plus Character Set (USA) 


Software which is capable of operating with 8 bit characters may use this character 
set to access all of the foreign language characters at once, without having to 
specifically change language. In this way, all the ‘bar and brackets’ type characters 
will be available as well. 


Please note that there is currently very little 8-bit software available, and that 
characters in the ranges 0 to 31 and 128 to 255 will only ever appear in the form 
shown above on the screen itself. Printers, on the other hand, will have their own, and 
different, ideas about what these symbols will look like. 
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More About the Bank Manager 


Extensions to BASIC allowing access to the second 64K bank of 
RAM. 


Subjects covered: 


Ж Storing screen images 
Ж Pseudo-file operation 


The memory map for BASIC 1.1 (shown in Chapter 7 part 14) indicates that 64K of 
the 128K RAM is unused. The BASIC and firmware themselves reside in a ROM 
which, together with the disc ROM, increase the normal memory provided from 64K 
to 112K (64K RAM, 48K ROM). 


Each section of 16K is called a ‘block’, and any particular selection of four blocks (to 
make 64K in total) is called a 'bank'. The technique of selecting blocks is therefore 
called ‘bank switching’. 


The Z80 microprocessor can accomodate only 64K of memory at any one time, so the 
operating system contains instructions to switch the firmware ROM into play instead 
of Block 0 of RAM, and to switch either the BASIC ROM or the disc ROM into play 
instead of Block 3. This switching takes place automatically when the BASIC or 
firmware is required. Bank switching of RAM merely extends this concept to include 
the overlaying of RAM, rather than ROM. The switching is taken care of by an 
assembler program. 


The program BANKMAN. BAS is provided on Side 1 of the system discs package. If 
the program is run after BASIC has started, it will install the standard bank 
management RSX code. Hence, the program is known as the ‘BANK MANAGER’. 


One use for the memory in the second 64K is as temporary storage space for picture 
screens. Such applications may include, for example, a ‘Screen Designer’ program 
which stores a number of different screens, or a video game which may have a number 
of different screens already prepared. 


Another use for the second 64K is as an extension to the variable workspace, which 
can be regarded as either an extension to the string array space, or as a simple 
'RAMdisc'. 
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Part 1: Storing screen images 


Choose your screen.... 


The BANK MANAGER is able to switch out Block 1, and switch in one of the four 
blocks from the second 64K in its place. The diagram below illustrates this action. 
Note how each of the blocks from the second 64K occupies the same address space 
(&4000 to &7FFF). The contents of Block 1 (probably the middle of your BASIC 
program!) is preserved, and is restored when the BANK MANAGER has finished. 
"There are three other bank selections possible (apart from the five shown below), but 
they areonly useful to the implementation of CP/M Plus. 


Hardware bank switching 


The BANK MANAGER supports two commands for moving screen-fulls of 
information between one block and another. Blocks 4 to 7 are switched in and out 
automatically as required, and the memory map is left with Block 1 switched in. 
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The command: 
ISCREENSVAP [screen section , screen number: , screen number» 
...exchanges the contents of two blocks, whereas: 


ISCREENCOPY , [.screen section, , destination screen number; , 
«source screen number» 
....Copies the contents of one block into another block. 


The optional «screen section» parameter causes the software to copy only 1/64th ofthe 
block (256 bytes out of 16K). «screen section» therefore takes values in the range 0 to 
63. This mode of operation is useful if it is required to interleave any other processing 
with screen moving. À screen-swap can take around 150/300ths of a second (150 
TIME-counts). 


The «screen numbers required are 1 (the normal screen), and then either 2, 3, 4, or 5. 
Copy and swap operations where the source or destination is screen 1, will operate 
much faster. Be careful of the screen hardware-roll effect, as experienced when 
dealing with disc screen dumps. It should be arranged that all the screen images are 
constructed (and viewed) with screen 1 set to the same hardware position. The 
simplest (default) position is that set by a MO D E command. 


Try out the screen switching commands.... 


First, run the BANK MANAGER program from Side 1 of your system discs package 
by: 


RUN "ВАМКМАМ" 
Then type: 

MODE 1 
Screen clears. Now type: 


' This is the original screen 
ISCREENCOPY,3,1 'Send original screen to memory 3 


cLs 
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Screen clearsagain. Now type: 


' This is the intermediate screen 
ISCREENCOPY,2,1 ' Send intermediate screen to memory 2 
ISCREENSWAP,2,3 ' Exchange memory 2 and memory 3 
ISCREENCOPY,1,3 ' Restore intermediate screen from memory 3 
ISCREENCOPY,1,2 ' Restore original screen from memory 2 


Finally on this subject, the last part of Chapter 9 includes a comprehensive 'Screen 
Designer' program, which incorporates the screen switching facilities provided by 
theBANK MANAGER. 


Part 2: Pseudo-file operation 


Curses filed again. 


When regarded as а RAMdisc, the whole of the second 64K is divided into a ‘RAMfile’ 
comprising a number of fixed length records. The record length can be between 0 and 
255 bytes, although 2 bytes is recommended as the minimum. Once the «RAMrecord 
length» has been established, each record can be accessed by its «RAMrecord 
number». It is perfectly acceptable to write the RAMfile using one record length, and 
read it back using another. 


NOTE - The RAMfile must contain only data; there is NO facility for it to contain 
program instructions. 


As is common with random access disc filing schemes, there is the concept of ‘current 
record number' This provides, in effect, a default record number, which is 
particularly useful when auto-stepping through the RAMfile. 


The command: 
I BANKOPEN ,:RAMrecord length: 


„Sets the fixed length of all records, initialises the current record number to zero, 
but DOES NOTclear the memory in any way. 


The command: 


ЇВАМКИКТТЕ ,@-return code , «string expression-[ ,RAMrecord number») 


... Writes the «string expression; to the RAMfile. 
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The .RAMrecord number: specifies which record is written. If the parameter is 
omitted, then the current record number is used. The current record number is then 
setto point atthe next record. 

If the «string expression: does not completely fill the record, then old characters 
(which have not been overwritten) will remain at the end of the record. If the «string 
expression» is longer than the record, then the excess characters are discarded to 
avoid spillage into the next record. 

«return code is an integer variable which returns the record number written to (if the 
operation was successful), or a negative error code if the write operation has failed in 
some way. 


-1 EndofFileerror. The requested record number's address exceeds 64K. 
-3 Bankswitching failure (should never happen). 


Examples: 


IBANKOPEN, 10 
IBANKWRITE,ar%,"123 testing",0 
IBANKWRITE,8rZ,u$ 


The command: 
IBANKREAD , @-return code, , 8«string variable[ , RAMrecord number] 


«reads a record into the «string variable» from the RAMfile. 

The «RAMrecord number» specifies which record is to be read. If the parameter is 
omitted, then the current record number is used. The current record number is then 
set to point at the next record. 

If the record contents do not completely fill the «string variable» then old characters 
(which have not been overwritten) will remain at the end of the «string variable. If 
the record contents are longer than the length of «string variable, the excess 
characters are discarded, as it is not possible to increase the length of a string 
variable during an external command. 

«return code» is an integer variable which returns the record number read from (if the 
operation was successful), or a negative error code if the read operation has failed in 
some way. 


-1 EndofFileerror. The requested record number's address exceeds 64K. 
-3 Bankswitching failure (should never happen). 
Example: 


IBANKREAD,ar%,i$,0 
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Searching.... 


It is possible to search through the stored records looking for a particular entry. 
The command: 


IBANKFIND , @-return code , «searched for string» 
Г, «starting record number”| , finishing record number» 1 


«Will scan all the RAMrecords. The «starting record number» specifies from which 
record the search starts. If the parameter is omitted, then the current record number 
is used. 


The search will proceed, in steps of .RAMrecord length», throughout the whole of the 
second 64K of memory until a match is found. 


If a «finishing record number» is specified, then the search will terminate after that 
record has been tested (unless a match has been found before that point). 


If the search is successful, then the current record number is set to point at the record 
where the match was found (otherwise it remains unaffected). 


«return code is an integer variable which returns the record number where the 
match was found (if the operation was successful) or a negative error code if the 
search operation has failed in some way. 


71 End of File. The starting record number's address exceeds 64K or exceeds the 
finishing record number. 


-2 Nomatch found. 
-3 Bankswitching failure (should never happen). 


The «searched for string» may contain wild-cards, signalled by nulls - CHR$ (Ø), and 
the comparison is made with reference to either the -RAMrecord length: or the length 
ofthe «searched for string», whichever is the shorter. 


Examples: 


IBANKFIND,8rZ,"123 test",0 
IBANKFIND,ar%,f$,100,200 
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Beware the mismatch. 


Obvious errors, such as the wrong number of parameters, are reported as a ‘Bad 
Command’ error. However, the mechanism of external commands does not detect 
errors of the‘Type mismatch’ variety, and the user must ensure that the correct 
form of parameters are employed. 


The program below uses the RAMdisc commands to set up and interrogate a database 
containing anagrams of 7-letter words. It searches for matches, and you may use wild 


cards. 


For example, anagrams of the word FIGURES which match with ? RUGS ?? (the 
two last ?? can be left off if you wish) are FRUGSIE, FRUGSEI, IRUGSFE, 
IRUGSEF,ERUGSFI,and IRUGSIF. 


The database takes some time to create, but then 64K is a lot of memory to fill! 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 


250 
260 


"ANAGRAMS by ROLAND PERRY 
' copyright (c) AMSOFT 1985 
' 


"Remember to RUN "BANKMAN" before running program 
БЕТЕР 


MODE 2 
DEFINT а-2 


rX-0:IBANKOPEN,7 
INPUT"What 7 letter word to scramble ";s$ 
IF LEN(s$)«»7 THEN 100 


THEN 360 
OR c4=c1 THEN 350 
OR с5-с2 OR с5-с1 THEN 340 


OR c6=c3 OR có-c2 OR с6-с1 THEN 3 


OR c7=c4 OR c7=c3 OR c7=c2 OR c7= 


PRINT"Please wait..." 
LOCATE 1,5:PRINT"Computing:" 
FOR c1=1 TO 7 
FOR c2-1 TO 7 
IF c2=c1 THEN 370 
1 TO 7 

OR c3-c1 

TO 7 

OR c4=c2 

TO 7 

OR c5=c3 

TO 7 

OR c6=c4 

TO 7 
IF с7=с6 OR с7=с5 
c1 THEN 320 
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Continued on the next page 
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270 


280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 


430 
440 
450 
460 
470 
480 
490 
500 
510 
520 


o$-MID$(s$,c1,1)*MID$(s$,c2,1) *MID$(s$,c5,1)*MIDSCs 
$,c4,1) +MID$(s$,c5,1)+MID$(s$,c6,1)+MID$(s$,c7,1) 
LOCATE 12,5:PRINT х;о$ 

IBANKWRITE,8rZ,oS$ 

IF r%<® THEN STOP 

х=х+1 

NEXT c7 

NEXT có 

NEXT c5 

NEXT c4 

NEXT c3 

NEXT c2 

NEXT c1 

lastrec=r% 

REM now look them up 

r%=0:g$=SPACES(7) 

PRINT: INPUT"What match do you require: use ? as wil 
d card: ",m$ 

m$-LEFT$(m$,7) 

FOR x=1 TO LEN(m$) 

IF MID$(m$,x,1)2"?"THEN MIDS$(m$,x,1)-CHRS(COD 

NEXT 

IBANKFIND,@r%,m$,0,lastrec 

IF г%<й THEN GOTO 420 

IBANKREAD,ar%,g$ 

PRINT g$, 

IBANKFIND,ar%,m$,r%4+1,lastrec 

GOTO 480 
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Chapter 9 
Atyourleisure.... 


This chapter takes a leisurely look at some background 
information to computing in general, and at the 6128 in 
particular. It is not vital that you read this chapter before 
operating the computer, but it may help you to understanda little 
of what’s going on ‘under the bonnet’. 


Part 1: Generally speaking.... 


Zap the wotsit! 


Even if the only reason that you bought your 6128 was to take advantage of the 
sophisticated computer games available, you may still probably be wondering about 
several aspects of the computer that come under the heading of ‘hardware’. 


The hardware is the equipment that you can pick up and carry around, i.e. the main 
computer keyboard, the monitor, the connecting leads etc. In fact, it’s just about 
everything that isn’t specifically the ‘software’ - programs, manuals, and disc or 
cassette based information. 


Certain features of the way that the computer behaves, are produced by courtesy of 
the hardware - things like the coloured display on the TV set (or monitor). It’s up to 
the software to make use of these hardware capabilities to produce specifically 
designed characters and shapes on the screen. 


The hardware actually directs the beam of electrons at the electro luminescent 
surface on the inside of the screen of the TV tube to make it ‘light up’ - the software 
adds order and intelligence by telling the hardware when and how to perform. It adds 
timing, control and sequencing to produce the effect of a spaceship taking off, or 
something more mundane like a letter appearing when you type at the keyboard. 


So what makes one computer better than another? 


Hardware without software is worthless. Software without hardware is equally 
worthless - the value of the computer begins when the two come together to perform 
various tasks. There are some very basic considerations that can be used to grade 
performance of both hardware and software. 
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The generally accepted reference points for personal computers are now: 


1. The screen resolution - the smallest discernible item on the 
display. 


This is a combination of factors, including the number of different colours available to 
the programmer, the number of distinctly different areas that can be resolved on the 
display (i.e. the pixels), and the number of text characters that can be displayed on a 
single screen area. 


You will find that your 6128 compares very favourably with any similarly priced 
machine in each of these respects. 


2. The BASIC interpreter 


Virtually every home computer includes with it a BASIC interpreter that allows the 
user to start creating programs to use the hardware features. The built in 
programming language (BASIC) that comes supplied with your machine is itself a 
program - an immensely complicated and intricate program that has been evolved 
over a million man-years of experience since BASIC was ‘invented’ in the USA. The 
‘Beginners’ All-purpose Symbolic Instruction Code’ is easily the most widely used 
computer language in the world, and like any language, it comes in a variety of local 
‘dialects’. 


The version in the 6128 is one of the most widely compatible dialects uf BASIC, and 
will also run programs written for operation under the CP/M disc operating system. It 
is a very fast implementation of BASIC - in other words it performs its calculations 
quickly - and whilst you may not be too concerned that one computer may take 0.05 of 
а second to multiply 3 by 5 and display the answer, whereas another may take 0.075 
second to do the same - where a program that draws graphics patterns on the screen 
may call for many thousands of simple repetitive calculations, the difference between 
0.05 and 0.075 of a second adds up to a considerable difference in performance. 


You will frequently hear the term ‘machine code’ being used. Machine code is the raw 
form of instruction code that can be passed to the processor. It takes less time to work 
out what it's been asked to, and gets on with producing the result some 5 to 15 times 
faster than an equivalent operation being passed along through the BASIC 
interpreter. On the other hand, it can take 5 to 50 times longer to write an equivalent 
programs in machine code when compared to performing the same overall task using 
BASIC. 
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The BASIC in your Amstrad computer is amongst the fastest and most fully featured 
to be found in any home computer system, and incorporates many features that help 
the experienced BASIC programmer overcome some of the inherent sluggishness of a 
‘high level language’ interpreter to perform surprisingly dynamic visual and musical 
effects. 


3. Expansibility 


Most computers pay attention to the need to ‘add-on’ additional items of hardware: 
printers, joysticks, extra disc drives. Paradoxically, some of the most successful home 
computers require the addition of add-on units known as ‘expansion interfaces’ before 
even a simple printer or joystick controller can be installed. 


The purchaser does not always think ahead to his needs in the future, because a 
machine that incorporates a properly supported parallel printer (Centronics 
compatible) and a games joystick port may actually be cheaper in real terms. 


The 6128 computer features a built-in Centronics printer port, a port for an 
additional disc drive, a cassette data (+ motor-control) socket, facilities for up to two 
joysticks, a stereo sound output - and a comprehensive expansion bus that can be used 
to attach a serial interface (AMSTRAD model RS232C), a MODEM, a speech 
synthesiser (AMSTRAD model SSA2), a light pen, etc. 


4. Sound 


The sound features of a computer determine whether or not it sounds like a bluebottle 
in a empty cocoa tin - or if it can produce an acceptable representation of an electronic 
musical instrument. 


Тһе 6128 computer uses a 3 channel 8 octave sound generator, which can produce a 
very acceptable musical quality with full control of the amplitude and tone 
envelopes. Furthermore, the sound is divided into a stereo configuration, where one 
channel provides the left output, one channel provides the right output, and the third 
channel sits in the middle. 


This provides considerable scope for writing programs that track the sound effects 
across the screen to follow the motion ofan arcade-style game. 


Ultimately, you will make up your own mind about which of these features is most 
important to you. We hope that you will try them all to make the most of your 
computer. 


At your leisure... Chapter 9 Page 3 


Why can't? 


With all the power of modern technology, users frequently wonder why even a 
machine as advanced as the 6128 is apparently unable to perform tasks seen on any 
TV set. Why for instance, can't a computer animate a picture of someone walking 
across the screen in a natural fashion? - why do all computers represent movement 
with ‘matchstick’ figures? 


The answer is simple yet complex. The simple answer is that you must not be 
beguiled into believing that the screen of your computer has anything of the subtlety 
of the screen of a TV set. A television set operates using ‘linear’ information that can 
describe a virtually infinite range of resolution between the extremes of light and 
dark across all the colours of the spectrum. This process means that in computer 
terms, the display ‘memory’ ofa full TV picture is some twenty times greater than the 
converted equivalent of a home computer display. 


That's only part of the problem, since to animate this picture requires that this 
enormous amount of memory must be processed at high speed (around 50 times each 
second). It can be done - but only by machines that cost a few thousand times more 
than a home computer, at least for the time being! 


Until the price of high speed memory falls dramatically (it will eventually), small 
computers have to make do with a relatively small amount of memory available to 
control the screen display, which results in lower resolution, and jerkier movements. 
Thoughtful hardware design and good programming can go a long way to making the 
best of this situation, but we are still a fair way from cheap computers that can 
reproduce flowing motions and lifelike pictures in the same way that even a moderate 
animated cartoon can produce. 


That keyboard looks familiar... 


Why can't you simply walk up to the computer and type a page of simple text into the 
machine? 


Don't be mislead by the fact that the computer looks like a typewriter with an 
electronic display. The screen is not a piece of electronic paper - it's a ‘command 
console' - jargon which means that it simply provides you with the means of 
communicating with the programming language (and the programs) in the machine 
memory. 


Until you tell it to the contrary, the computer will try and interpret all the characters 
that you type at the keyboard as being program instructions. When you press the 
[RETURN] key, the computer will look through what has been typed, and if it doesn't. 
make sense to the built in BASIC, it will reject the ‘input’ with the comment: 


Syntax error 
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However, it may just happen that the program presently residing in your computer i: 
a Word Processor system, in which case you will be able to type random words, pres: 
[RETURN] and carry on typing as if the system WERE operating as an electronic 
piece of paper in an electronic typewriter. But to do this, you must have first loaded c 
word processor program into the machine’s memory. 


The computer ‘seems’ to combine several items of equipment that have become 
familiar around the home and office such as the TV-like screen and the keyboard 
You must remember that the similarities are generally strictly superficial, and that 
the computer is a combination of familiar looking hardware that has an entirely 
different personality of its own! 


At your leisure... Chapter 9 Page 5 


Whose afraid of the jargon? 


As with all ‘specialist’ industries, computing has developed its own jargon as a 
short-hand form of communicating complicated concepts that require many words of 
‘plain language’ explanation. It’s not just the high technology business that’s guilty 
of hiding itself behind an apparent smokescreen of ‘buzz words’, jargon and 
terminology - most of us have come up against the barriers to understanding erected 
by all the main professions and trades. 


A major difference is that the confusion in legal jargon arises from the way the words 
are used - rather than the words themselves as in the case of computing. Most people 
who grow familiar with computing terminology will go out of their way to use the 
words in the most straightforward possible manner, so as to minimise the complexity 
of the communication. Don’t be mislead by the ‘plain language’ used in computing, it 
is not a literary subject, but a precise science, and apart from the ‘syntax’ of the 
wording, the structure of the communication is very straightforward, and not in the 
least confusing or ambiguous. Teachers of computing have not yet managed to make 
an art form out of trying to analyse the exact meaning intended by a programmer in 
his program construction. 


Having said that, despite whether or not the meaning of a computer program is 
obvious, there are still many aspects that can be analysed as either elegant or untidy, 
and more emphasis is being put on a formal approach to program construction, now 
that the initial mayhem brought about the micro revolution is settling down. 


Computing is rapidly being understood by many young people who appreciate the 
precision and simplicity of the ideas and the way they can be communicated - you 
don’t find too many ten year old lawyers - but you can find plenty of ten year old 
programmers! 
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Basics of BASIC 


Virtually all home computers provide a language known as BASIC, which allows 
programs to be written in the nearest thing to plain language presently available. 
BASIC no longer has any particular significance as to the degree of the sophistication 
of the language, and many extremely complex and powerful programs are written 
using BASIC. 


However, there’s no doubt that the name has attracted many newcomers for its 
promise of providing a starting place in the maze of computer program languages, 
and this has contributed significantly to its universality. 


BASIC is a computer language that interprets a range of permitted commands, and 
then performs operations on data while the program runs. Unlike the average human 
vocabulary of 5000-8000 words (plus all the different ways verbs can be used etc,) 
BASIC has to get by with about two hundred. Computer programs written using 
BASIC have to follow rigid rules concerning the use of these words, The syntax is 
precise, and any attempt to communicate with the computer using literal or 
colloquial expressions (i.e. plain language) will result in the cold and clinical 
message: 


Syntax error 


This is not as restrictive as it first appears, since the language of BASIC (the syntax) 
is primarily designed to manipulate numbers - the numeric data. The words are 
essentially an extension of the familiar mathematical operators +/— etc., and the 
most important concept for newcomers to grasp is the fact that a computer can only 
work with numeric data. Information that is supplied to the CPU (Central Processor 
Unit) integrated circuit is only supplied in the form of numerical data. 


Number please.... 


Ifa computer is used to store the complete works of Shakespeare, there will not be a 
single letter or word to be found anywhere in the system. Every piece of information 
is first converted into a number which the computer can locate and manipulate as 
required. 


BASIC interprets the words as numbers which the computer can then manipulate 
using only addition, subtraction and features from Boolean logic that permit the 
computer to compare data and select for certain attributes - in other words, check to 
see if one number is greater than or the same as another, or to perform a defined task 
ifone number or another meets certain criteria. 


Through the medium of the program, the computer breaks down every task into a 
simple series of Yes/No operations. 
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If this process sounds cumbersome, then you're quite right, as you have uncovered the 
first and most important truth about computing. À computer is primarily a tool for 
performing the simplest of repetitive tasks very quickly and with absolute precision. 
Thus BASIC interprets the instructions as given in the form of the program, and 
translates them into the language that can be handled by the CPU. Only two states 
are understood by the logic of a computer - ‘yes’ or ‘no’, represented in binary notation 
as 'l' and ‘0’. The representation in Boolean logic is simply ‘true’ and ‘false’ - there's no 
such thing asa ‘maybe’ or ‘perhaps’! 


The process of switching between these two distinct states is the essence of the term 
‘digital’, and is sometimes referred to as ‘toggling’. In the world of nature, most 
processes move gradually from one completely ‘stable’ state to another in a linear 
progression. In other words, the transition is made by following the path of a line 
between the two states - in an ideal digital environment the switch from one state to 
the next is made in no time at all -but the physics of semiconductor science dictate 
that there will be some minor delay, referred to as propagation delay - and it is the 
accumulation of many of these propagation delays that provides the reason why a 
computer has to spend some time processing the information before the answer comes 
out. 
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In any case, the computer would have to wait a finite time for one task to have 
finished before it can start work on the result of that first task - so there would need to 
be some artificial delay imposed anyway. The digital process is black or white, and 
the stages of transition via the various shades of grey have NO significance 
whatsoever. Conversely, the linear or ‘analogue’ progression IS via the shades of 
grey. 

If the ultimate answer is either 0 or 1, then there is no possibility of it being ‘nearly’ 
correct. The fact that computers can sometimes appear to make errors when handling 
numeric data is due to the limitation of the size of numbers it can process, requiring 
‘oversized’ data to be squeezed down to fit the space available , or ‘truncated’, leading 
to rounding errors. e.g.999,999,999 becomes 1,000,000,000. 


In a world where the only two numbers available are 0 or 1, how then do you count 
beyond 1? 


Bits and Bytes 


We just happen to be used to understanding numbers based on the decimal system 
where the reference point is the number 10 - i.e. there are ten digits available to 
represent quantities in range from 0 to 9 (which is used in preference to the 
expression 1 to 10). The system where numbers range from 0 to 1 is the binary system, 
and the units in which the system operates are called bits - an abbreviated form of 
‘Binary digIT’. 

The relationship between bits and decimal notation is simple to understand: 


It’s conventional to declare the maximum number of binary digits being used by 
adding leading zeros to make up the number to the full number of bits: 


e.g. decimal 7 becomes: 
00111 binary 


... using 5 bit notation. 


In the binary system, the figures may be considered merely as indicators in columns 
to specify whether or not a given power of 2 is present; 1=yes, 0=no. 


29-41 

21=2=2= 2(29) 

22 = 4 = 2x2 = 2(21) 

23 = 8 = 2x2x2 = 2(22) 

24 = 16 = 2x2x2x2 = 2(23) 
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»..80 the columns look like: 


24 23 23 2 29 
1 0 0 1 £ 
(6 + 0+ 0 + 2 + 1) = 19 


In order to provide a shorthand method of referring to binary digit information, the 
term ‘byte’ is used to denote 8 bits of information. The maximum number that be 
stored in a byte is then (binary) 11111111 - or (decimal) 255. This implies 256 actual 
variations, including 00000000, which is still perfectly valid data to a computer. 


Computers tend to manipulate data in 8 bit multiples. 256 is nota very large number, 
80 in order to achieve an acceptable means of handling the memory, two bytes are 
used to provide a method of addressing memory which is in the form of array, with a 
horizontal and vertical address by which the elements of that array can be located: 


0| 1| 2| 3 9 
0 
1 
2 
3 
"IBN 
5 1111 
6 
m 
8 
9 


The array can locate up to (10x10) items of information using address numbers that 
liein the range 0 to 9. The item stored at position 3,5 is а ‘l’ - as is the item at 5,5. 


So a binary array of 256x256 can handle 65,536 individual locations using 8 bit 
addresses for the vertical and horizontal axes of the array. So our ‘0’ and ‘1’ have 
progressed to being capable of identifying one of 65,536 different elements. 
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The next level of shorthand for binary is the kilobyte (kByte or simply ‘K’) which is 
1024 bytes. 1024 is the nearest binary multiple to the more familiar decimal use of 
the term ‘kilo’ (1000) - and explains why a computer described as having a ‘64K’ 
memory does in fact have a memory of 65,536 bytes (64 x 1024). 


Thankfully, the BASIC interpreter does all the necessary conversions for you, and it 
is quite possible to become a proficient programmer without a complete 
understanding of binary, although an appreciation of the significance of binary will 
help you spot the many ‘magic’ or significant numbers that inevitably crop up as you 
work through the science of computing. 


It’s worth spending some effort to acquire an understanding of binary and the various 
significant numbers 255, 1024 etc, since it is very unlikely that these will change 
from being the bedrock of computer operation in the foreseeable future. The certainty 
and simplicity that comes from working in only two states will prevail over the 
enormously increased complexity that would result from any other number base. 


However... 
Simple and elegant as it is, binary notation is longwinded and prone to inaccuracy as 
it cannot be easily read at a glance. Binary has a number of associated counting 


systems that act as shorthand for programmers. One such number system widely 
used in microcomputing is called HEX (an abbreviation of hexadecimal). 


Here the number is based on 16 (0 to 15), and is represented in a single character: 


Decimal 


0123 45 67 8 9 10 11 12 13 14 15 


Hex 

0123456789 A B CD EF 

The hexadecimal system can break the eight bits of a byte into two blocks of four bits, 
since 15 is a four bit number: 1111 binary. The first block indicates the number of 


complete units of ‘15’, and the second indicates the ‘remainder’ - and this is where the 
absolute elegance of binary and hex begin to emerge. 
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Reconsidering the table that introduced binary notation: 


Decimal Binary Hexadecimal 
0 0 0 
£ 1 $ 
2 10 2 
3 11 3 
4 100 4 
5 101 5 
6 110 6 
T 111 7 
8 1000 8 
9 1001 9 
10 1010 A 
11 1011 B 
12 1100 с 
13 1101 D 
14 1110 E 
15 1111 F 
16 10000 10 


An 8-bit number 11010110 (&D6 hex) can be subdivided, and then considered as two 
4-bit numbers (known as nibbles). Throughout this manual, a hex based number is 
introduced by the ‘&’ symbol e.g. &D6, and this is the number base most commonly 
used by programmers using assembly language techniques. An assembly language 
program is the nearest most programmers get to programming directly in machine 
code, since the assembly language program allows the programmer to use simple 
letter ‘mnemonics’ to specify the actual machine code ‘numbers’. 


When using hex, you must first work out the value of the first digit to obtain the 
number of 16’s in the final number, and then add the remainder designated by the 
second ‘half of the hex notation to obtain the total decimal equivalent. There's a 
powerful temptation to regard a number like &D6 as 13+6, or 136, but it’s 
(13х16)+(6) = 214. 


It's Ње same process you use when you read а decimal number (also known as а 
Denary number) such as ‘89’ - i.e. (8x10)+(9). It just happens that multiplying by ten 
is a great deal simpler, unless you've had a lot of practice at multiplying by 16. 


Chapter 9 Page 12 At your leisure... 


If you've got this far without becoming too confused, then you are wellon your way to 
getting a grasp of the basic principles of the computer. You may even be wondering 
what all the fuss is about - and you'd be quite correct. À computer is a device that 
manages very simple concepts and ideas; it just happens to perform these tasks at 
great speed (millions of times per second), and with a huge capacity to remember both 
the data that has been input, and the intermediate results of the many thousands of 
very simple sums along the way to the result. 


If you want to pursue the theory of your computer, there are literally thousands of 
books available on the subject of computing. Some will tend to leave you more 
confused than you were when you started reading them, but a few will actually lead 
you along the way by revealing the simplicity and the fundamental relationships 
that exist between the number systems, and the way that your computer deals with 
them. 
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Part 2: More about the CPC6128 
specifically.... 


This section gently expands upon some of the machine-specific 
aspects of the 6128. Background information to these matters 
will be found both in the Foundation course, and in the chapter 
entitled ‘Complete list of AMSTRAD CPC6128 BASIC keywords’. 


Subjects covered in this section: 


Character set 

ASCII 

Variables 

Logic 

User defined characters 
Print formatting 
Windows 

Interrupts 

Data 

Sound 

Graphics 

Graphics Using the Extra Memory 


Sho bbb bb tt 


A bit of character.... 


As you type at your 6128 keyboard, you should not take for granted the fact that 
recognisable letters and numbers etc, appear on the screen. After all, we’ve already 
discussed the fact that your computer is not a typewriter. What’s actually happening 
is a result of you pressing a combination of electrical switches. The electrical signals 
produced when you press these switches are translated by the circuitry inside the 
equipment to produce a pattern of dots on the screen. We recognise that pattern of 
dots as a letter, number, or other character from the 61285 ‘character set’. 
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Some of the characters that you will see are not directly accessible by pressing the 
keys on the keyboard, but are only available for display using the PRINT 
CHR$ (number) statement. This is because each element stored іп the computer is 
stored in the unit of data known as the ‘byte’ - and as just discussed in part 1 of this 
chapter, a byte has 256 different possible combinations of value. As the computer has 
to use at least one whole byte per character stored (whether we want it to or not - it’s 
the smallest denomination that the 6128 appreciates), we might as well use all 256 
possible combinations, rather than simply be satisfied with the 96 or so ‘standard 
characters’ that are printed on most typewriters - and throw away the spare 160 
possibilities. 

The ‘standard’ range of characters is known as a ‘subset’. It is classified throughout 
the computer world as the ‘ASCII’ display system, a term derived from ‘American 
Standard Code for Information Interchange’. It’s primarily a system that ensures the 
data sent from one computer to another is in a recognisable form. The chapter 
entitled ‘For your reference... lists the ASCII display range, together with the 
additional characters available on the 6128, and the corresponding numeric codes. 


How we get there.... 
You are by now probably quite familiar with the program: 


10 FOR n=32 TO 255 
20 PRINT CHR$(n); 
30 NEXT 


«Which makes the computer display the character set on the screen. Let's now 
examine the essence ofthis small program: 


The first point to notice is that the computer has not been instructed to PRINT 
"abcdefghijkLlmn..... etc"; instead it has been asked to PRINT CHR$ (n). n 
just happens to be a convenient shorthand note for a ‘variable’. A variable is an item 
of computer information that 'varies' according to the instructions given in the 
program. (The choice of the letter n for the variable is arbitrary - it can be any 
letter(s) as long asit's not a keyword.) 


How can you tell what is a variable? 


A number like 5 is fixed, it occurs between the numbers 4 and 6 - thus it is not a 
variable. The character n is also fixed - it’s a letter from the alphabet. 
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So how did the computer know the difference? If the letter n had been declared to be 
the alphabetical character, we would have typed n in quotation marks, i.e. "n", and 
the computer would have responded with the message Syntax error -because 
it does not understand the command sequence FOR "n"=32 TO 255. 


Simply by using n without quotation marks, we have told the computer that n is a 
variable. The definition of the FOR statement in BASIC requires that it should be 
followed by a variable - so the computer assumes that whatever follows FOR is just 
that. 


We have also told the computer that n=32 TO 255. Thus we have declared the 
range of the variable. It is in effect, a sequence starting at 3 2, finishing at 255. 


Having declared this variable, we should then instruct the computer what it should 
do with it- line 20 does just that: 


20 PRINT CHR$(n); 


This specifies that whatever the current numeric value of n, the computer should 
look into its memory to see which character number corresponds to that value, and 
print the character on the screen. 


The semicolon at the end of the line instructs the computer to prevent a carriage 
return and line feed. (Otherwise each new character will be printed in the first 
column ofa new line.) 


Line 30 tells the computer that after it has performed the task with the first value of 
n in the sequence (which is 3 2), it should return to the line where the F OR is located, 
and do the same again with the NEXT value that it assigns to the variable n. This 
process is known as ‘looping’, and is one of the most vital and fundamental aspects of 
computer programming and operation. It saves typing long repetitious sequences 
manually, and you will quickly come to use it in your own programming. 


When this FOR NEXT loop reaches the limit of its declared range (255), the 
operation ceases and the computer then looks for the next line after line 30 - but 
there isn’t one, so it simply ends, and returns to direct mode, displaying the Ready 
prompt. This tells you that the computer is ready to accept further instructions - or 
you can enter RUN again and repeat the execution of the program. The program is 
safely stored away in the memory and will remain there until you tell the computer 
otherwise - or turn the power off. 


This program neatly illustrates a fundamental point about computing - i.e. 
everything the computer does is related to numbers. The computer has displayed the 
alphabet - and a whole range of other characters - using a number as its reference to 
the character required. When you type the key marked A, you don’t ask the computer 
to type an A on the screen, but you tell the computer to look into the part of its memory 
that contains the numeric information to display the letter A on the screen. The 
actual location of this data is defined by the numeric code that is activated by the 
action of typing at the keyboard. 
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(Each character has a corresponding number, and these are listed in part 3 of the 
chapter entitled ‘For your reference....’.) 


Similarly the displayed character has nothing to do with ‘writing’ the letter on the 
screen; once again it’s all about numbers. 


For example, the ASCII code for the letter A is 97. The computer doesn’t understand 
97 either (awkward blighter, eh?), and this number has to be translated from the 
human decimal code into a code that computer can relate to - it’s generally referred to 
as ‘machine code’, and the principles underlying this aspect of the machine are 
discussed earlier in this chapter. 


At first, the translation from the decimal number notation we are used to in everyday 
life, to the ‘hexadecimal’ notation of the computer will seem heavy going. Thinking of 
numbers that are based on the ten unit is so natural, that to do otherwise is like 
trying to eat with your knife and fork in the opposite hands. 


A degree of mental dexterity must be acquired to understand hex notation, but once 
you do, many things about computing will fall into place and the elegant structure of 
the numbering system will become apparent. 


Ifyou are unsure about the binary and hexadecimal numbering systems, we suggest 
that you thoroughly read part 1 of this chapter (if you have not already done so). 


Once the computer has translated the pressing of the A key into the type of number it 
understands, it looks into that part of the memory indicated, and the result is another 
series of numbers that define the character. Hence the character that you see 
displayed on your screen, is built up from a block of data, stored in the memory as a 
numeric ‘matrix’: 


ABLANK CHARACTER 
MATRIX (GRID) LOWER CASEa UPPER CASE A 
The elements of the matrix are rows and columns of dots. The character is displayed 
by turning the required sequence of dots on or off - each dot is determined by data 
stored in the computer's memory. There are 8 rows and 8 columns in each character 
matrix or ‘cell’ on the 6128 display, and if you don't find a character you want out of 
the set of 255 that are provided, then you can re-define your own characters using the 
keyword S YMBOL described later in this section. 
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These ‘user defined characters’ can be made up using any combination of 0 to 64 dots, 
arranged in any order - so the ‘complete’ character set that uses all possible 
combinations of this matrix would comprise many more different characters. Add to 
this the fact that you can group blocks of characters together to form larger block 
characters, and the possibilities for user-defined graphics are limited only by your 
time and ingenuity. 


Logic. 


A major difference between a calculator and computer is the computer's ability to 
handle logical operations in applications like the conditional IF THEN sequence. 
To do this, the logical operators treat the values to which they are applied as bit 
patterns (bit-wise), and operate on the individual bits. The description and use is 
entirely, well ....er logical - but it is notoriously difficult to describe logic in simple 
terms without the precision of concise definitions. 


The two halves of the logical expression are known as the arguments. A logical 
expression comprises: 


«argument.[-logical operator argument] 
where: 


«argument» is: NOT «argument 
or: numeric expression» 
or: «relational expression» 
or: (logical expression») 


Both the arguments for a logical operator are forced to integer representation, and 
ERRor 6 results ifan argument will not fit into the integer range. 


The logical operators, in order of precedence, and their effect on each bit are : 

AND ResultisO unless both argument bits are 1 

OR Resultis 1 unless both argument bits are 0 

XOR Resultis 1 unless both argument bits are the same 

AND is the most commonly employed logical operator, and does NOT mean ‘add’. 
PRINT 10 AND 10 

Resultsin 10 
PRINT 10 AND 12 


Results in 8. 
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PRINT 10 AND 1000 
Resultsin 8 again. 


This is because the numbers 10 and 1000 have been converted to their bina: 
representations: 


1010 
1111101000 


The AND operation checks each corresponding bit at a time, and where the bit in the 
top AND the bottom row is the 1, the answer is 1: 


0000001000 


Which is our result of 8. The logical operator AND is used to detect when two 
conditions are present simultaneously. Here’s a self explanatory application: 


10 INPUT "The number of the day";day 

20 INPUT "The number of the month";month 
30 IF day=25 AND month=12 THEN 50 

40 CLS:GOTO 10 

50 PRINT "Merry Christmas!" 


OR works on bits as well, where the result is 1 unless both bits from the arguments 
are Ø, in which case the result is Ø. Using the same numbers as for the AND example: 


PRINT 1000 OR 10 
1002 


Bit-wise: 
1010 
1111101000 
Resulting in the answer: 
1111101010 
Andinaprogram example: 


10 CLS 

20 INPUT "The number of the month";month 

30 IF month=12 OR month=1 OR month=2 THEN 50 
40 GOTO 10 

50 PRINT "It must be winter!" 
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The NOT operator inverts each bit in the argument (0 becomes 1, and vice versa): 


10 CLS 

20 INPUT "The number of the month";month 

30 IF NOT(month=6 OR month=7 OR month=8) THEN 50 
40 GOTO 10 

50 PRINT "It can't Бе summer!" 


Another major feature to consider is the fact that you can add together any number of 
logical conditions (up tothe maximum line length) to distill the facts yet further. 


10 INPUT "The number of the day";day 

20 INPUT "The number of the month";month 

30 IF NOT(month-12 OR month=1) AND day=29 THEN 50 

40 CLS:GOTO 10 

50 PRINT "This is neither December nor January, but 
this might be a leap year" 


The result of a relational expression is either - 1 or 0. The bit representation for - 1 
is all bits of the integer = 1; for 0 all bits of the integer = 0. The result of a logical 
operation on two such arguments will yield either - 1 for True, ог 0 for False. 


Check this by adding lines 6@ and to the above program: 


60 PRINT NOT(month=12 OR month=1) 
70 PRINT (month=12 OR month=1) 


апа when the program is run, entering 29 for the day and, say, 2 for the month 
will produce the answer in line 50, and the actual values returned by the logical 
expressions in lines 60 and 70. 


Finally, XOR (eXclusive OR) produces a true result as long as both arguments are 
different. 


The following summarises all these features in what’s known as a ‘truth table’. It’s a 
convenient way of illustrating what happens in a bit-wise logical operation. 


ArgumentA 1010 
ArgumentB 0110 


ANDresult 0010 
OR result 1110 
XORresult 1100 
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User defined characters 


One of the first applications of binary numbers that you are likely to come across will 
be when designing characters for use with the S YMB0 L command. If the character is 
drawn on an 8 by 8 grid then each of the eight rows can be converted to a binary 
number by putting a 1 for each pixel that is to be inked and a zero for each that should 
be invisible, i.e. set to the paper colour. These eight numbers are then passed to the 
SYMBOL command. For example, to define a house character: 


* 00001000 = 808 = 8 

ERK 00111100 &3c = 32%16%8%4 

ж ж 081000010 842 = 6% 
жж жж 10100101 &A5 = 128 +32 +4 
* * 10000001 881 -.128 
* wk k k 10110101 &B5 = 128 +32+16 +4 
ж ** * 10110001 &B1 = 128 +32+16 +1 = 177 
жжжжхжжж = 11111111 &FF = 128+64+32+16+8+4+2+1 = 255 


„the command 18: 
SYMBOL 240,8,60,66,165,129,181,177,255 
ог. 
SYMBOL 240,808,83С,842,8А5,881,885,881,8ЕР 
sas OP sae 
SYMBOL 240,&X00001000, &X00111100, &X01000010, 8Х10100101, 
&X10000001, &X10110101, &X10110001, &X11111111 
То print the user defined character, you would type: 
PRINT CHR$(240) 
Finally, to group blocks of characters together, you may for example specify: 


semiS-CHR$(240) *CHR$(240) 
PRINT semi$ 


in OB ius 


terrace$=STRING$(15,240) 
PRINT terrace$ 


Printing press.... 


PRINT is one of the first ever commands that you use when you start to learn 
computing. It's one of those BASIC commands that does what it says really.... or does 
it? In fact there's a lot more to PRINT than at first it seems, for instance WHERE 
should it print? and HOW should it print?.... 
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Print formatting 


The PRINT command has several ways in which it can be used. The simplest is to 
follow it by an item to be printed. This item can be a number, a string or a variable 
name. 


PRINT 3 
3 


PRINT "hello" 
hello 


а-5 
PRINT a 
5 


a$="test" 
PRINT a$ 
test 


Several items may be placed in one PRINT statement with each being separated by a 
separator, ог TAB or SP C. The possible separators are either a semicolon or a comma. 
The semicolon causes direct continuation of printing, while a comma forces printing 
to continue in the next zone. The initial zone width is 13, but may be changed using 
the ZONE command. 


PRINT 3;-4;5 
3-4 


PRINT "hello ";"there" 
hello there 


PRINT "hello","there" 
hello there 


PRINT 3,-4,5 
3 


be 5 
ZONE 4 
PRINT 3,-4,5 
š 4 5 


A point to note here is the fact that positive numbers are printed with a leading space, 
while negative numbers have a leading minus sign. All numbers have a trailing 
space. Strings are printed exactly how they appear between the quotes. 
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The function S P C takes a numeric expression as a parameter, and will print as many 
spaces as are specified by the expression. If the value is negative then zero is 
assumed, if it is greater than the current stream (window) width, then the stream 
width is assumed. 


PRINT SPC(5)"hi" 
hi 


x53 
PRINT SPC(xx*3)"hi" 
hi 


TAB is very similar except that it will print as many spaces as are needed so that the 
item to be printed will appear in the specified column. 


The stream in which all printed output will appear is window 0 unless a stream 
director (#) is included before the list of items to be printed. Other streams may be 
used to output to the other windows. Streams 8 and 9 are special cases - anything 
printed on stream 8 will appear on the printer (if connected). Stream 9 directs output 
to a disc (or cassette) file. Note however, that the WRITE command should be used 
instead of PRINT forthis purpose. 


PRINT "hello" 
hello - window 0 


PRINT /Q,"hello" 
hello - also window 0 


PRINT #4,"hello" 


hello - window 4 
(At the top of the screen) 
PRINT 48,"hello" 
hello - onthe printer 
(Ifconnected) 


TAB and SPC are fine for simple print formats, but to specify a more detailed format, 
the PRINT US ING command, together with a suitable format template can be used. 
A format template consists of a string expression containing special characters, each 
of which will specify a particular type of format. These characters, called ‘Format 
field specifiers’, are detailed in the description of the keyword PRINT USING, 
earlier in this manual. Some of the following examples however, may make their use 
alittle clearer. 


Firstly, here are the formats available for the printing of strings: 
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PRINT USING "N \";"test string" 
test s 


can be used to print the first character ofa string. 


PRINT USING "!";"test string" 
t 


....But probably the most useful string format is '' &" . This can be used to override the 
string wrapping feature of BASIC if required. By default, BASIC will start the 
printing of any string on a new line if it is too long to fit onto the current line. PRINT 
USING "&"; canbeusedtooverride this. 

(Use BORDER @, sothat you can see the edges of the paper.) 


MODE 1:LOCATE 39,1:PRINT "too Long" 


- line 1 

too long - line 2 
MODE 1:LOCATE 39,1:PRINT USING " 

to - line 1 

o long - line 2 


A large number of templates are available for the printing of numbers. Probably the 
simplest is PRINT USING "#####", one digit is printed for each "#" that 
appears in the template. 


PRINT USING "######";123 
123 


The position of the decimal point may be included by the use of " . 


PRINT USING "ЯЙ. НЯНЯ"; 12.45 
12.45000 


The digits before the decimal point may be grouped into threes, separated by commas 
if" ,"" is included in the template before the decimal point. 


PRINT USING "ZUHHHHHH,.HHHH";125456.78 
123,456.7800 
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Floating dollar and pound signs may be included in the format - i.e. a currency sign 
that will always be printed directly before the first digit of the number, even if it does 
not fill the complete format. This is achieved by the use of "$$" and "££" in the 
template. 


PRINT USING "$$##";7 
$7 


PRINT USING "S$44";351 
$351 


PRINT USING "££###H,.##";71234.567 
£1,234.57 


Note the rounding ofthe result. 


The space before the result may be padded with floating asterisks by the use of " жж" 
inthetemplate. 


PRINT USING "**####.#";l2.22 
****12.2 


This may be combined with the currency symbols, (and then only one currency 
symbolis used) - i.e. " **$....etc" or "**£....etc". 


А "+" at the start of the template specifies to always print the sign of the result 
before the first digit. A "+" at the end of the template prints a trailing sign. 


A " -" can only be placed at the end ofthe format, and specifies that a trailing minus 
sign be printed ifthe number is negative. 


PRINT USING "+##";12 
+12 


PRINT USING "+##";-12 
k 


PRINT USING "##+";12 
12* 


PRINT USING "44-";-12 
12- 


PRINT USING "44-";12 
12 
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A" 1 1 1 1" format template can be used to print a number in exponential format. 


PRINT USING "###.##1111"U;123.45 
12.35E*01 


When using print formats for numbers, note that if a number is too long for the 
specified template, then a Z symbol is printed before the result, to indicate that this 
has happened, and the result is NOT shortened to fit the specified template. 


PRINT USING "####"; 123456 
0123456 


Want your windows 4опе?.... 


The BASIC of the 6128 provides a comprehensive method for setting up a maximum 
of eight text windows. Any of the text screen driving commands may then be directed 
to any one of these windows. 


The command that is used to set up a window is, simply enough: WINDOW. This is 
followed by 5 values. The first is optional and is used to specify which window is to be 
defined - if omitted, then window zero is assumed, all the normal BASIC prompts and 
messages (for example, ‘Re a d y") are produced in window zero. The hash symbol (#) 
precedes this number to identify it as being a stream director. The next four numbers 
specify the left, right, top and bottom limits of the window. These values are column 
and row numbers, so they must lie in the range 1 to 80 for left/right and 1 to 25 for 
top/bottom. 


The following example will define WINDOW (stream) number 4 to start in column 7 
(left) and go on to column 31 (right), and to start at row 6 (top) and go down to line 18 
(bottom), Reset the computer then type: 


WINDOW #4,7,31,6,18 


Nothing will appear to have happened after this command, however, try typing the 
following : 


INK 3,9 
PAPER 44,3 
CLS #4 


This will cause a large green rectangle to appear on the screen, and this is window 
number 4. The above also shows that PAPER and CLS may be used with any one of 
the eight windows by the inclusion of a stream director; its omission causes the 
command to operate on window 0 - the default window. 
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Each of the following commands may include a stream director to identify the 
WINDOW in which the command is to be carried out. 


CLS 
COPYCHRS 
INPUT 
LINE INPUT 
LIST 
LOCATE 
PAPER 
PEN 

POS 
PRINT 
TAG 
TAGOFF 
VPOS 
WINDOW 
WRITE 


The new green window which you have put on the screen, will have obscured some of 
the previous text (written on window number 0). 


Text may be directed to any window by including a stream director in a PRINT 
statement: 


PRINT #4,"hello there" 


"These words will appear at the top of the green rectangle, rather than on the 
following line as would have happened if.... 


PRINT "hello there" 


«had been used. While typing in the earlier command, you will have noticed that 
partofthe green window was overwritten by thetext. 


If you want all the normal BASIC messages to appear in window 4, then it can be 
swapped with the default window (0) by use of the WINDOW SWAP command: 


WINDOW SWAP 0,4 


The ‘Ready’ that follows this command will be printed in the green window. The 
cursor will be positioned directly beneath it. Now try typing the following: 


PRINT #4,"hello there" 
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...and the words ‘hello there’ will appear directly beneath the WINDOW SWAP 
command in the old window Й, which is now window 4. It may also be apparent from 
this, that the current print position in each window is stored, so that even after a 
WINDOW SWAP, text is printed part way down the new stream 4 rather than 
starting at the top. Try the following: 


LOCATE #4,20,1 
PRINT "this is window Ü" 
PRINT #4,"this is window 4" 


The ‘window 0” message will appear on the line after the PRINT, while the 
‘window 4’ message will appear at the middle of the top line of the whole screen. 


Before a WINDOW command has been issued, all eight windows cover the entire 
screen. This is also true after a MODE command has been issued - so, if after using 
windows you find that the cursor ends up in a very small window, just type in 
MODE 1,asshown: 


MODE 1 
WINDOW 20,21,7,18 
мо 
DE 
1 


Don't worry about the word ‘MOD E’ being split up - it will still work, and don't forget 
to leave a space between MODE and 1. 


Now that you know a little about the way in which windows operate - try typing in the 
following short program : 


10 MODE 0 

20 FOR n=0 TO 7 

30 WINDOW #n,n+1,n+é,n+1,n+6 
40 PAPER #n,n+4 

50 CLS #n 

60 FOR c=1 TO 200:NEXT с 

70 NEXT n 


This sets up 8 overlapping windows and clears each to a different paper colour. When 
the program has finished running and ‘Ready’ appears, try pressing [RETURN] a 
few times to see how the scrolling of window 0 affects the coloured blocks on the 
screen. However, although these coloured blocks may be scrolling, the locations of the 
other windows do not actually move. Try the following: 


CLS #4 
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„апі you will see that the 4th window is still in the same position - the new coloured 
block having obscured those beneath it as one would expect. As a matter of interest, 
observe the differences when you type: 


LIST 
LIST #4 
LIST #3 


A further feature of the WINDOW command, demonstrated by the final program in 
this section, is that it does not matter if you specify the left and right window 
dimensions in reverse order. This means that if the value of the first parameter is 
greater than the second, BASIC will automatically sort the dimensions into the 
correct order. This also applies to the top and bottom window dimensions. 


10 MODE 0 
20 a=1+RND*19:b=1+RND*19 
30 *RND*24:d-1*RND*24 


40 e=RND*15 

50 WINDOW a,b,c,d 
60 PAPER e:CLS 

70 GoTo 20 


If I may interrupt... 


If you haven't already noticed, a major innovation in the software of the AMSTRAD 
range of computers is their unique ability to handle interrupts from BASIC - which 
means that AMSTRAD BASIC is capable of performing a number of simultaneous 
but separate operations within a program. Such a facility is sometimes referred to as 
‘multi-tasking’, and it is implemented by the application of the commands AF TER 
and EVERY. 


This facility is also clearly demonstrated in the way in which sound may be handled 
through facilities such as queues and rendezvous. 


Every aspect of timing is referred to the master system clock, which is a quartz 
controlled timing system within the computer that looks after the timing and 
synchronisation of events that happen in the computer - things like the scanning of 
the display and clocking the processor. Where a function in the hardware is related to 
time, this can be traced back to the quartz master clock. 


The software implementation is the A F T ER and EVERY command, which in keeping 
with the user-friendly approach of AMSTRAD BASIC, do precisely what they say; i.e. 
AFTERthetimethat you have preset in the command, the program will divert to the 
designated sub-routine and perform the task defined therein. 
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The 6128 maintains a real time clock. The AFTER command allows a BASIC 
program to arrange for sub-routines to be called at some time in the future. Four 
delay timers are available, each of which may havea sub-routine associated with it. 


When the time specified has passed, the sub-routine is called automatically, just as if 
a GOSUB had been issued at the current position in the program. When the 
sub-routine finishes, using a normal RETURN command, the main program 
continues running where it was interrupted. 


The EVERY command allows a BASIC program to arrange for sub-routines to be 
repeatedly called at regular intervals. Once again, four delay timers are available, 
and each may have a sub-routine associated with it. 


The timers have different interrupt priorities. Timer 3 has the highest priority and 
timer 0 the lowest (see the chapter entitled ‘For your reference....’). 


10 MODE 1:n-14:x-RND*40Q 

20 AFTER x,3:GOSUB 80 

30 EVERY 25,2 GOSUB 160 

40 EVERY 10,1 GOSUB 170 

50 PRINT "test your reflexes" 
60 PRINT "press the space bar."; 
70 IF flag=1 THEN END ELSE 70 
80 z-REMAIN(C2) 

90 IF ІМКЕҮ(47)--1 THEN 110 


120 IF ІМКЕҮ(47)--1 THEN 120 
130 PRINT "you took"; 
140 PRINT (TIME-t)/300;"seconds" 


lag=1:RETURN 
SOUND 1,0,50:PRINT ". RETURN 
170 nzn*1:1F n>26 THEN n=14 

180 INK 1,n:RETURN 


AFTER and EVERY commands may be issued at any time, resetting the sub-routine 
and time associated with the given delay timer. The delay timers are shared by the 
AFTER and EVERY commands, so an AF TER overrides any previous EVERY for the 
given timer, and vice versa. 


The D I and E I commands disable and enable timer interrupts whilst the commands 
between them are executed. This has the effect of delaying a higher priority interrupt 
from ever occurring during the processing of a lower priority interrupt. The REMAIN 
function disables, and returns the remaining count for one of the four delay timers. 
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Using data.... 


Ina program that always requires the same set of information to be input at the start, 
it would make more sense if there were some way of entering all the values without 
having to ask the user to type them in every time. This facility is provided by the 
READ and DATA commands. The word READ is very similar to INPUT іп thatit can 
be used to assign values to variables. It differs, however, in the fact that values are 
read from DATA statements, rather than prompting for input from the keyboard. The 
following two examples show this: 


40 INPUT "enter 3 numbers separated by commas";a,b,c 
20 PRINT "the numbers are";a;"and"; 
run 


10 READ a,b,c 

20 PRINT "the numbers are" 
30 DATA 12,14,21 

run 


In the same way that different items in an INPUT statement are separated by 
commas, so it is with items in a DATA statement. 


In addition to numeric values, constant strings may also be held in DATA statements: 


10 DIM a$(8) 
20 FOR i=0 TO 8 
30 READ a$(i) 


40 NEXT 

50 FOR 1-0 TO 8 

60 PRINT a$(i);" "; 

70 NEXT 

80 DATA The,quick,brown,fox,jumps,over,the,lazy,dog 
run 


You may notice that although the DATA contains strings, the strings are not 
enclosed by double quotes "", The use of double quotes in DATA statements to 
delimit (separate) strings is optional, just as they are when typing a string in answer 
toan INPUT statement. One occasion that double quotes are useful however, is when 
thestring DATA itself contains commas. If strings are not delimited by double quotes 
under these circumstances, the READ statement will use the commas to delimit the 
strings in the DATA statement. 
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10 READ a$ 

20 WHILE a$«»"x" 

30 PRINT a$ 

40 READ a$ 

50 WEND 

60 DATA The old, desolate, battered house creaked in 
the wind 

70 DATA "The tall, slim, dark man coughed loudly." 

80 DATA * 


The string in line 6@ contains commas, so each part will be READ and printed 
separately. The string in line 70 however, is delimited by double quotes and will be 
printed as a whole, as intended. 


The above example illustrates the fact that data can be spread over a number of lines. 
READ will work down the lines in number order (60, 70, 80, etc.). Another fact that 
may not be obvious is that DATA statements can be placed anywhere within a 
program; before or after the READ statement that picks up the information. 


If a program contains more than one READ statement, then the second READ will 
continue from the point at which the first READ stops: 


10 DATA 123, 456, 789, 321, 654, 2343 

26 FOR i=1 to 5 

30 READ num 

40 total-total*num 

50 NEXT 

60 READ total2 

70 IF total=total2 THEN PRINT "the data is ok" 
ELSE PRINT "there is an error in the data" 

run 


Try editing line 10 so that one of the first 5 numbers is wrong, then run the program. 
again. This technique of adding an extra value to the end of DATA statements which 
is the sum of all the other values, is a good method of detecting errors in DATA, 
especially if there are a large number of DAT A lines - this is known as a ‘checksum’. 


If a program requires mixed data (strings and numbers), it is permissible to combine 
string and numeric items in READ and DATA statements, as long as the items are 
read correctly. For instance, if the DATA contained sequences of two numbers 
followed by a string - then it would only make sense to use a READ that was followed 
by two numeric variables, then a string variable: 
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10 DIM a(5),b(5),s$(5) 

20 FOR i=1 TO 5 

30 READ a(i),b(i),s$(i) 

40 NEXT 

50 DATA 1,7,fred,3,9,jim,2,2,eric,4,6,peter,9,1,alfonzo 
60 FOR i=1 TO 5 

70 PRINT s$(i),":";a(i)*b(i) 

80 NEXT 


Alternatively, you may wish to separate the different types of data: 


10 DIM a(5),b(5),s$(5) 

20 FOR i=1 TO 5 

30 READ a(i),b(i) 

40 NEXT 

50 FOR i=1 TO 5 

60 READ 5%(1) 

70 NEXT 

80 DATA 1,7,3,9,2,2,4,6,9,1 
90 DATA fred,jim,eric,peter,alfonzo 
100 FOR i=1 ТО 5 

110 PRINT s$(i),":";a(i)*b(i) 
120 NEXT 


Ifthe FOR loop in line 20 is now changed to: 
20 FOR 1-1 TO 4 


....then the first two attempts to read strings in line 60 will produce ‘9’ then ‘1’, These 
values are of course valid strings, but the result is not exactly what was planned! One 
method by which the program could be forced to work properly, would be to include 
the following commands: 


15 RESTORE 80 
45 RESTORE 90 


The RESTORE statement will move the DAT A-reading ‘pointer’ to the line specified, 
and can therefore be used in a conditional statement to pick a certain block of data to 
be read depending upon some criterion. For instance, in a multi-level game which has 
a number of different screens, the DATA for each screen may be picked according to 
some variable - for example | e v e l’. The following isjust an example section of such 
a program: 


At your leisure... Chapter 9 Page 33 


1000 REM section to draw the screen 
1010 IF Level-1 THEN RESTORE 2010 
1020 IF level=2 THEN RESTORE 2510 
1030 IF level=3 THEN RESTORE 5010 
1040 FOR y=1 ТО 25 

1050 FOR x=1 ТО 40 

1060 READ char 

1070 LOCATE x,y: PRINT CHR$(char); 
1080 NEXT x,y 


2000 REM DATA for screen 1 
2010 DATA 200,190,244,244,210,...etc. 


2500 REM DATA for screen 2 
2510 DATA 100,103,245,243,251,. 


3000 REM DATA for screen 3 
3010 DATA 190,191,192,193,194,....etc. 


Another example use of DATA, READ and RESTORE might be in a program that 
plays a tune. Tone period values may be READ from DATA statements, and 
RESTORE used to make a section repeat by moving the pointer back to the beginning 
ofacertain part of the music data: 


10 FOR i=1 TO 3 

20 RESTORE 100 

30 READ note 

40 WHILE note<>-1 

50 SOUND 1,note,35 

6@ READ note 

70 МЕМО 

80 МЕХТ 

90 SOUND 1,142,100 

100 DATA 95,95,142,127,119,106 
110 DATA 95,95,119,95,95,119,95 
120 DATA 95,142,119,142,179,119 
130 DATA 142,142,106,119,127,-1 
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The sound of music.... 


Of all the 6128's features, the sound and envelope commands will probably seem to be 
the most daunting at first sight - this needn’t be the case. With a little practice you 
should be able to make a whole range of different noises and even make the machine 
play a complete tune with harmonies. 


Let’s start by having a look at the first 4 parts of a SOUND command. These are: 
channel number, tone period, duration of note, and volume. You may be wondering 
what range each number has to be in. 


We'll leave the first part (channel number) for a moment because it is quite 
complicated. The second part (tone period) can take any whole number value from 0 
to 4095, but only some of these will actually produce recognisable notes from the 
musical scale - these are listed in part 5 of the chapter entitled ‘For your reference....’, 
For instance the number 239 will play middle C, and 253 will play the note B below 
middle C, the values 240 to 252 will play a tone, but not one that corresponds to the 
piano scale. If the tone period is zero then no tone will be played - this will be useful 
when using ‘noise’ (explained later). 


The third part of the SOUND command gives the duration of the note in units of a 
hundredth of a second. The value can generally be anywhere in the range 1 to 32767. 
However, if the value is zero, then the length of the note will be determined by the 
‘envelope’ used (more of this later). If the value is negative then it indicates how many 
times the envelope should be played, so -3 would mean ‘repeat the volume envelope 
three times’ (again, this will be explained later). 


The fourth part of the command is the volume. This can be from 0 to 15 (but if it is 
omitted, 12 is assumed). With the simple sounds that have been made so far, the 
volume remained constant for the whole time that the note played, When a ‘volume 
envelope’ is used to vary it, then the volume part of the SOUND command is taken as 
the starting value of the note. 


Now for the channel number part of the command. You might as well know now that 
this is a ‘bit significant’ number - so you'll need to know a little about binary numbers 
to fully understand it (see part 1 of this chapter). 


A sound can be played on one of three possible channels, if the computer is connected 
toa stereo amplifier, then one channel will be on the left, another on the right and the 
third on both (in the middle). To choose which channel(s) that a note should be played 
on, the following numbers are used: 


lchannelA 
2channel B 
4channelC 
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To play on more than one channel, add up the numbers for the desired channels. For 
example to play on A and C use 1+4 = 5. 


SOUND 5,284 


You may be wondering why channel C is given the number 4 and not 3 as you might 
expect. This is because each of these numbers is a power of two (1=2 1 0, 2-21 1, 
4=2 1 2) so that they combine to form a binary number. If you think about a three 
digit binary number, then each of the three digits can be either 0 or 1, and this is used 
inthe channel number to indicate whether the corresponding channel should be on or 
off. From the above example: 


5 in decimal is equivalent to 1*4 + @*2 + 1* 1 or 101 in binary. It follows then, that 
ifeach column of this binary number is labelled C, B, and A, this gives: 


CBA 
101 


In other words, channel С is ON, B is OFF, and A is ON. If the note was to be played on 
channels A and B, then this would become: 


CBA 
0 11 


And the binary number 011 is the same ав 0254 + 1*2 + 1*1 = 3. So the SOUND 
command would be: 


SOUND 3,142 


This is, of course, the same value that would be found if you just added up the 
numbers for the channels to play on (remember A=1, B=2, C—4). So to play on A and 
В, the channel number is given by 1+2 = 3. 


If you didn’t understand that - don’t worry. As long as you can see that a combination 
of channels can be chosen by adding up the numbers for each of the channels to be 
used, then that’s all you really need to know. 


Unfortunately, there are yet more values that can be used in the channel number. 
The numbers 8, 16 and 32 are used to specify that the sound should ‘rendezvous’ with 
another channel (A, B, C respectively). You’re probably wondering what is meant by 
the term rendezvous. Well, up to now the sounds that we have produced have gone 
straight to the specified channels. Try this: 


SOUND 1,142,2000 
SOUND 1,90,200 
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Unless you are a very slow typist, you will have noticed that you were able to type in 
the second of these commands before the first had finished. This is because the sound 
system is able to hold up to 5 sound commands for each channel in a ‘queue’. If we 
wanted a sound to play on channel A, and then two sounds to play simultaneously on 
A and B, we would need some way of letting the computer know that the sound оп B 
should not start until the second note on A was ready to play - i.e. making one channel 
wait for another. This is known as a rendezvous, and there are two ways in which this 
can be achieved : 


SOUND 1,200,1000 
SOUND 3,908,200 


In this, the second note is directed to A and B, so it cannot start until the note on A 
finishes. The limitation with using this method (to make a note combination wait 
until all channels that it should play on are free) is that the same sound will be 
directed to each of the channels (in this case , 90 , 200 went to both A and B). The 
alternative method is to use the following: 

SOUND 1,200,2000 

SOUND 1%16,90,200 

SOUND 2*8,140,400 
Here, the second note on A is made to rendezvous with the sound on B (and the sound 
on B is made to rendezvous with the note on A). The advantage here is clear 
- although the second note on A was different to the note on B, the two were still 
linked so that neither could start until both channels were free - this is a rendezvous. 
Onceagain the values are bit-significant: 
8-213,16-214,and32-215 


хөвд now the channel number can be seen as a binary number where the columns аге 
headed: 


Rendezvous Rendezvous Rendezvous Playon Playon Playon 
Add 32 Add 16 Add8 Add4 ada 2 ada 1 
So for a note to play on C and rendezvous with A, you would use: 
0 0 1 1 0 0 
This is the binary number 1100, which is equal to 8 + 4 = 12 


Hence, a channel number of 12 would tell the computer to play a note on channel C, 
and wait for a note that has been marked to rendezvous with it on channel A. 
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If 64 (2 1 6) is added to the channel number, then this indicates that the note should 
be held. In effect, this means that the note will not play until the command 
RELEASE isused. 


And finally, if 128 (2 17) is added to the number, then the queue of the channel 
specified will be cleared (or flushed). Therefore, if you start a sound that is going to 
continue for too long on a particular channel, then a quick way to stop it is to flush the 
channel: 


SOUND 1,248,50000 (this would play for 5 minutes) 
SOUND 1+128,0 (this willstop it short) 


In direct command mode, a quicker way of stopping any long sounds is to press the 
[DEL]key at the start ofa line; the short warning beep flushes all sound channels. 


Now that we can hopefully send a sound to any of the three channels that we choose, 
(with rendezvous if necessary), it would be nice to be able to produce a little more than 
the rather unmelodious ‘beep’ that the simple SOUND command produces. The way 
to do this is to play the sound with an envelope - a pattern that defines how the note 
gets louder and quieter during the short time it is playing. A note produced by an 
instrument has an initial attack, where the volume rises very sharply. The volume of 
the note then falls away to a lower level which is sustained for a time, after which it 
fades away to zero. It is possible to give an envelope of this nature to the notes 
produced by the SOUND command. The associated ENV command is used to do this. 
First let’s look at a simple example: 


ENV 1,5,3,4,5,-3,8 
SOUND 1,142,0,0,1 


The ENV must come before the SOUND command for which it is used. To use this 
envelope in a SOUND command, its number is included as the fifth part of the SOUND 
command - in this case, the envelope is number 1. The first number in an ENV 
command is the number of the envelope that it defines. The ENV instruction contains 
information about how long the note will last and how loud it will get, so the duration 
and volume parts of the SOUND command are set to zero. The envelope defined above 
causes the sound to be increased in 5 steps, each step increasing the volume by 3, and 
each step being 4 hundredths of a second long. The volume is then to be reduced in 5 
steps, each step decreasing the volume by -3, each step being 8 hundredths of a 
second long. In other words, the first number identifies which envelope is being 
defined, and this is then followed by two groups of three numbers, and in each of these 
groups, the first number indicates by how many steps the volume is to go up or down. 
The second number indicates by how much the volume is to go up or down at each of 
hen steps, and the third number determines by how long each step of volume is to be 
eld for. 


Chapter 9 Page 38 At your leisure... 


The total length of time that each section will take is equal to the first value (number 
of steps) multiplied by the third value (pause time). The total increase or decrease in 
volume is equal to the number of steps multiplied by the step size. The overall length 
of an envelope with more than one section, is equal to the sum of the lengths of each 
section. 


Of course, the starting volume needn’t always be @ (as set by the SOUND command). 
The above example produced a note that went up, then back down again. The 
following will go down, then back up: 


ENV 2,5,-2,1,20,0,1,10,1,1 
SOUND 1,248,0,15,2 


This envelope is given the number 2 and has three sections. In the first, the volume is 
reduced іп 5 steps of - 2. That is, it goes down by 2 at each step and there are 5 steps. 
The length of each of these steps is 1 hundredth of a second. The second section 
consists of 20 steps, but with @ (zero) reduction or increase in the volume (i.e. 
constant volume) per step. Again, the length of each of these steps is 1 hundredth ofa 
second. Finally, the third section has 10 steps, each increases the volume by 1, and 
once again each step is 1 hundredth ofa second long. 


The SOUND command has a starting volume of 15, so after the first section the 
volume will be reduced to 5, this is held constant for 20 hundredths of a second, then 
gets increased to 15 in the final section ofthe envelope. 


Itis perhapsa little difficultto visualise the shape of these envelopes. It often helps to 
draw them out on graph paper and take the values for the ENV command from this. 
The following show the shape ofthe two envelopes that have been defined so far: 


mu 
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Тһе maximum number of sections іп an envelope is 5, and each section takes 3 values, 
so the ENV command can have up to 16 parts (including the first, that identifies 
which of the 15 envelopes (1 to 15) is being created). If the steps up or down cause the 
volume to go above 15 or below 0 then the value will wrap around; so the step above 15 
is 0, and the step below 0 is 15: 


ENV 3,9,5,20 
SOUND 1,142,0,0,3 


This simple envelope produces 9 steps, each step increasing the volume by 5, and 
each step lasting 2@ hundredths of a second. After the first three steps therefore, the 
volume will be 15, so the next step will take it back round to 4, then 9 and so on. The 
diagram on the following page shows the effect : 
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The range of values for the number of steps is 0 to 127. The step size can be varied 
from —128 to +127 (negative values decrease the volume), and the pause time (i.e. 
the time between steps) can be anywhere in the range 0 to 255. 


Now that we can create a volume envelope to give a characteristic shape, we may also 
want to define a characteristic tone pattern to include things such as vibrato - where 
the sound ‘wavers’ about the main tone of the note. 


This is done in a very similar way to that in which volume envelopes are defined. 
Tone envelopes are defined using the ENT command. For example: 


ENT 1,5,1,1,5,-1,1 
SOUND 1,142,10,15,,1 


A tone envelope is called into the SOUND command by entering the tone envelope’s 
number as the sixth part of the SOUND command. Again the ENT must come before 
the SOUND command. 
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This first example of ENT specifies that in tone envelope number 1, there is to be 5 
steps, each step increasing the tone period by 1, each step being 1 hundredth of a 
second. The next section of the envelope again specifies 5 steps, this time each step 
decreasing the tone period by - 1, again each step being 1 hundredth ofa second. This 
is a total length of 5 + 5 = 10. Notice that this length was specified in the SOUND 
command because a tone envelope does NOT determine the length of time that a note 
will play (in the same way that a volume envelope does). If the length used in the 
SOUND command is shorter than the length of the tone envelope, then the last part of 
the tone envelope will be lost. If it is greater, then the last part of the note will play 
with a constant tone. This also applies if a volume envelope is used to determine the 
note length. 


(Notice the absence of any number in the volume envelope part of the SOUND 
command - this is because we have not created a volume envelope for this sound.) 


The majority of tone envelopes will probably be much shorter than the expected 
length of the note. For this reason, a tone envelope can be made to repeat throughout 
the time that the note is playing. This is done by specifying a negative envelope 
number, the positive equivalent of which must be used in the SOUND command: 


ENT -5,4,1,1,8,-1,1 
SOUND 1,142,100,12,,5 


This will produce a vibrato effect on the note. When defining tone envelopes, it is 
usually best if they can be made to vary symmetrically about the initial tone period, 
so that when the note repeats, it will not go further and further off the initial 
frequency (pitch) - try this: 


ENT -6,5,1,1 
SOUND 1,142,90,12,,6 


You will notice that this tone will fall in frequency quite dramatically because each 
time the envelope is repeated, the tone period will increase by 3 and this will happen 
30 times (90 / 3). This sort of effect can be quite useful for ‘warbling’ notes and sirens: 


ENT -7,20,1,1,20,-1,1 
SOUND 1,100,400,12,,7 


ENT -8,60,-1,1,60,1,1 
SOUND 1,100,580,12,,8 


The number of possible tone envelopes is 15 (in the range 1 to 15), with a negative 
value indicating that the envelope should repeat. The number of steps (the first value 
in each group of three), can be anywhere between 0 and 239. As in the volume 
envelope, the step size can be from -128 to 127, and the pause time should be between 
0 and 255. Once again, an ENT command, like an ENV command, can have a 
maximum of five sections (each containing 3 values). 
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The final part that can be added onto a SOUND command is a seventh value that 
indicates the level of noise which should be included in the sound. One point that 
should be borne in mind when including noise in a sound, is the fact that there is only 
one noise channel, so each subsequent noise period value overrides any previous one. 


The noise can be added to a tone to give it a different sound, or can be used quite 
separately, by setting the tone period (second part) of the SOUND command (00, so 
that only noise is present. This is of use in making percussive type sounds. Try this 


ENT -3,2,1,1,2,-1,1 
ENV 9,15,1,1,15,-1,1 
FOR a=1 TO 10: SOUND 1,4000,0,0,9,3,15: NEXT 


This could form the basis of a train noise. You will notice that this combines both 
types of envelopes and noise. 


The duration and volume parts of the SOUND command are both set to 0 as they are 
determined by the volume envelope. 


Now that we can hopefully use the SOUND, ENV and ENT commands to their full, we 
can look at various other associated commands and functions. 


In describing the channel number of the SOUND command, you will remember that 
by adding 64 to it, the sound was marked as ‘held’ so that it would remain in the 
queue, without playing until released. The way in which a sound can be released is by 
use of the RELEASE command. The word RELEASE is followed by a bit significant. 
number, where each bit is used to indicate one of the three possible channels to be 
released. Once again, it is not important to fully understand this, as long as you 
realise that: 


4 means channel C 
2 means channel B 
1 means channel A 


гапа a combination of channels is released by adding up the values for each of the 
channels. So, to release held sounds on all three channels the following would be 
used: 


RELEASE 7 


«Where 7 = 1 + 2 + 4. If no channels are held, then the RELEASF command is 
ignored. Try the following: 


SOUND 1464,90 

SOUND 2*64,140 

SOUND 4+64,215 

RELEASE 3: FOR t=1 TO 1000: NEXT: RELEASE 4 
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The sounds that you might expect from these SOUND commands are not produced 
until the first RELEASE command which allows the sounds on channels A and B to 
play. After the delay, the sound on channel C is RELEAS Ed. 


There is yet another method by which more than one sound can be made to 
rendezvous. When a sound is added to a queue that has the hold bit set (64 added), 
then it is not just that sound which is held, but all subsequent sounds sent to that 
queue. If more than four further sounds are sent to the held queue, then the machine 
will pause until the queue is released, perhaps by using a sub-routine that is called 
after a fixed period of time (using AFTER or EVERY). However this is not a 
particularly good method for using the sound system, as the program that contains 
the sound commands may pause from time to time as the sound queues fill up. This is 
also true ifa lot of long sounds are added in quick succession. Try this: 


10 FOR a=1 TO 8 

20 SOUND 1,100*a,200 
30 NEXT 

40 PRINT "hello" 

run 


You will notice that the word ‘he L Lo’ does not appear instantly, but only after the 
first three sounds. This is because program execution cannot continue until there is a 
free space in the queue. 


The BASIC contains an interrupt mechanism, rather like that used in the AFTER 
and EVERY commands, and in ON BREAK GOSUB. This enables you to specify a 
sound playing sub-routine that is only called when a free space appears in the 
required queue. Try this: 


10 а=й 

20 ON SQ(1) GOSUB 1000 

30 PRINT a; 

40 GOTO 30 

1000 a=a+10 

1010 SOUND 1,a,200 

1020 IF a«200 THEN ОМ SQ(1) GOSUB 1000 
1030 RETURN 

run 


You will notice that the program never pauses. The SOUND command is only called 
when channel A’s queue (number 1) has a free slot. This condition is detected by the 
ON $Q(1) GOSUB command in line 20. The command initialises an interrupt 
mechanism that will call the sound sub-routine when a free slot appears in the 
specified queue. Once ON SQ GOSUB has been used, it must be re-initialised, 
and this is done by line 1020 in the sound sub-routine. In this example, the sound 
sub-routine only re-initialises itself while the value of ‘a’ is less than 200. 
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In a complete program that may be moving objects on the screen, adding up totals and 
the like, a background tune can be kept continually playing by having a sub-routine 
called to play each note only when there is a free slot in the queue. This ensures that 
the program does not pause while waiting for a free slot to appear. If the note values 
for this tune were being read from DATA statements, then the sound routine could be 
set stop re-initialising itselfjust before the data is exhausted. 


The number within the brackets ofthe ON SQ() 60508 commandcanbe1,2or 
4 depending on which channel queue is to be tested for a free slot. 


There is a function S Q С) that may be used within a program to read the current state 
of any of the sound channels. The number within the brackets after S Q is again 1, 2, 
or 4, to specify for which channel the information should be returned. The function 
returns a bit-significant number and will again require an understanding of binary 
numbers to decipher it. The bits of the value returned have the following significance: 


BIT DECIMAL MEANING 


0,1,2 1,2,4 Number of free spaces in the queue 

3: 8 Note at head of queue is marked to rendezvous with A 
4 16 Note at head of queue is marked to rendezvous with B 
5 32 Note at head of queue is marked to rendezvous with C 
6 64 Top note in queue has hold bit set (the queue is held) 
7 128 Anote is currently playing 


Try this simple example: 


10 SOUND 2,200 
20 х-58(2) 

30 PRINT ВЇМ5(х) 
run 


This will print the binary number 10000100, in which bit 7 is set, indicating that 
the channel was currently playing when the 50 function was used. The last three 
digits 100, when converted to decimal give the value 4 indicating that there were 4 
free entries in the queue. This function may be used to test a queue’s status at a given 
point within a program - unlike ON SQ() 60508 which will test and react toa 
queue’s status at an indeterminate point. 


So far, all the examples have just dealt with one or two notes of sound. Processing a 
whole group of unrelated notes, for example in a piece of music, can be achieved by 
listing the required notes іп a DATA statement, from where they can be READ into a 
SOUND command: 
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10 
20 
30 
40 
50 
60 
70 
80 
гип 


Тһе final 


FOR octave=-1 TO 2 
FOR x=1 TO 7: REM notes per octave 
READ note 

SOUND 1,note/210ctave 

NEXT 

RESTORE 

NEXT 

DATA 426,379,358,319,284,253,239 


example program in this section greatly elaborates on this basic principle. 


The tune and rhythm play on channels A and B, using rendezvous to keep in step. The 
example demonstrates one of the ways in which DATA can be formatted so as to 
include note, octave, length and rendezvous information: 


REM Line 180 gives treble clef tune 

REM Line 190 gives bass clef tune 

DIM scale%(12):FOR xX-1 TO 12:READ scaleZ(xX) : МЕХТ 
Ch1X21:READ chi$:ch2X-1:READ ch2$ 

(35: 
Spd%=1 
зса(е8-" a-b b сес d-e е f4f g*g" 
ENV 1,2,5,2,8,-1,10,10,0,15 

ENV 2,2,7,2,12,-1,10,10,0,15 

ENT -1,1,1,1,2,-1,1,1,1,1 

DEF FNM$(s$,s)=MID$(s$,s,1) 

ch1%=1:GOSUB 200 

ch2%=1:GOSUB 380 

IF сһ1%%сһ2Х>0 THEN 140 

END 

DATA &777,&70c,&6a7,&647,&5ed,&598 

DATA 8547,84їс,8454,8470,8431,83(4 

DATA 4cr4f4f1f1g1A1-B2C2f4g2g1A1-B6A2Cr1f1g1f1g1a1- 
b1A1-b2C2g2A2g2f1g1a2g2f6e2c2e2c2g2e2c1-B1A2g2f4e4d 
8c4f3f1c2d4-b2fr2-B2A2g2f6e2gr4C4-Bla1f1-b1g2c2-b4áa 
4g4fr6A2A2-B4-B2Ar2-B2A2g2f6e2g4C4-B1A1f1-B1g2C2-B4 
Аб984. 

DATA r&f&f8f&e&c&fr8f&e2f2e&d2e2d8c8c6e2f4g4g8e4f3f 
1c4dr8g4cr4e4c6f2d4c4c8fr8-e4dr8g8c4e4c6f2d4c4c8F. 
REM send sound to channel A 

p1$=FNM$(ch1$,ch1%) 

IF p1$<>"r" THEN r1Z=0:GOTO 240 
r1%=16:ch1%=ch1%+1: p1$=FNMS$(ch1$,ch1%) 


continued on the next page 
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240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
гип 


IF р15-"." THEN ch1%=@:RETURN ELSE L1Z=VAL(p1$) 
сһ1Х-сһ1%%1 

n1$=FNM$(ch1$,ch1%) 

сһ1%-сһ1%%1 

8-"%" OR n1$="-" THEN 350 

+n1$ 
nd1%=(1+INSTR(scale$,LOWER$(n1$)))/2 

IF ASCCRIGHT$(n1$,1))»296 THEN 01%=8 ELSE 01%=16 
SOUND 1+r1%,scale%(nd1%)/01%,Spd%*l1%,0,1,1 

ON SQ(1) GOSUB 200 

RETURN . 

n1$2n1$*FNMSCch1$,ch12) 

сһ1%-сһ1%%1 

GOTO 300 

КЕМ send sound to channel В 
p2$=FNM$(ch2$,ch2X) 

IF p2$<>"r" THEN r2X-0:GOTO 420 
r2X-8:ch2X-2ch2Z*1:p2 Nm$Cch2$,ch22) 

IF p2$-"." THEN ch2%=O:RETURN ELSE L2%=VAL(p2$) 
ch2%=ch2%+1 
n2$=FNM$(ch2$,ch2X) 
ch2%=ch2%+1 

IF n2 +" OR n2$= 
n2$=" "+n2$ 
nd2%=(1+INSTR(scale$,LOWERS(n2$)))/2 

IF ASCCRIGHT$(n2$,1))»96 THEN о2Х-4 ELSE 02%=8 
SOUND 2*r2X,scaleZ(nd22)/02Z,SpdX*l22,0,2 

ON SQ(2) GOSUB 380 

RETURN 

n2$-n2$*FNM$Cch2$,ch2X) 

ch2X-ch2X*1 

GOTO 480 


" THEN 530 


Gxaphically speaking.... 


This section describes the graphics facilities available. The first example builds up 


slowly demonstrating each major feature in turn. 


To start off with, we will divide the screen into a text window (line 40) and a graphics 
window (line 30), setting the MODE and a couple of flashing colours along the way 


(line 20): 


At your leisure... 


Chapter 9 Page 47 


10 REM mask and tag in window 
20 MODE 1:INK 2,10,4:INK 3,4,10 
30 ORIGIN 446,100,440,640, 100,300 
40 WINDOW 1,26,1,25 

50 CLG 2 


If you RUN this program you will see a square of flashing colour halfway down the 
right-hand side of the screen. This square has been cleared to ink number 2 (flashing 
magenta/cyan) by line 50, and the origin of co-ordinates has been moved to the 
bottom left hand corner of the square. The MODE command has set the graphics 
cursor to the origin of co-ordinates (X—0, Y=0) so we can draw a diagonal line across 
the square with line 60: 


60 DRAW 200,200,3 
RUN the new program to see the effect. Now add: 
80 MOVE Q,2:FILL 3 


Line 80 puts the graphics cursor just inside one of the two halves of the square and 
fills it with ink 3. The boundary of the fill is the edge of the graphics window (in this 
case also the edge of the square) and anything drawn in the current graphics pen (3) 
or anything drawn in the ink being used to fill (also 3). 


Now RUN the resulting program. 
To prove the point about ‘fill’ edges, add line 7 0 below. Note that it is only the fact 


that the fill is in the same ink as the diagonal line that restricts the fill to half the 
square. 


70 GRAPHICS PEN 1 
run 


Edit line 80 to FILL with ink 1 then RUN to prove this last point. Then restore it 
back tothe original(FILL 3). 


Now add lines 100 to 140, which draw a box: 


100 MOVE 20,20 
110 DRAW 180,20 
120 DRAW 180,180 
130 DRAW 20,180 
140 DRAW 20,20 
run 
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The box is drawn in ink 1 because of line 70. If line 70 were omitted then we would 
need to add a‘, 1’ either as the third parameter of the MOVE command in line 100, or 
the third parameter of the DRAW command in line 110 in order to instruct the 
computer to change graphics pens. 


Join the dots.... 


Lines need not be solid, they can be dotted. The MAS K command allows us to specify 
the size of the dots. The pattern will repeat every 8 pixels and each subsequent line 
will continue the dotting scheme from where the last line left off. A new MASK 
command (probably with the same parameter as the current one) will reset the 
dotting logic to the start of the 8 pixel pattern. 


The dotting pattern is actually a single byte binary number where the bits set 
indicate where to put pen ink. In our example we will use a binary constant (called up 
by the «ХЭ indicating that we want four pixels drawn in the middle of each 8 pixel 
group, with the two either side not drawn. This will give a dashed line with four 
pixels on and four pixels off. To do this, add: 


90 MASK &X00111100 
run 


But hold on a moment! This program does not give us a smooth continuation of the 
dotting around the corners as we expected. The reason for this is that each corner 
point is actually plotted twice, once as the last pixel of one line, and again as the first 
pixel of the next line. A clumsy way around this is to type in: 


115 MOVE 180,22 
125 MOVE 178,180 
135 MOVE 20,178 
run 


... Which produces the desired effect. However there is a simpler way, which is to add a 
second parameter * , Ø’ to the end of the MASK command which tells the computer 
NOT to plot the first point of each line. Edit line 9 to read: 
90 MASK 8Х00111100,0 
..and delete the lines you just added by typing: 
115 


125 
135 
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Now RUN, and once again the dotted box is symmetrical. Note that if the second 
MASK parameter is 5, 1’ the command will be reset to draw whole lines including the 
first pixel. 


Now look in between the dashes of the line. There is something in the bottom right 
triangle which is not in the top left triangle. This is the graphics paper, which is set to 
ink 2 by the CLG 2 command in line 50, but is invisible in the top left triangle 
because it is the same colour as the background. Alter line 50 to read: 


50 CLG 2:GRAPHICS PAPER Ø 


„апа re-run the program. The paper now shows up clearly all round the box. 


It is possible to make the graphics paper invisible, or, as we call it ‘transparent’. This 
means that a dotted line drawn over an existing picture will preserve the gaps 
between the dots. The graphics drawing is made transparent by adding a ‘, 1’ 
parameter to the GRAPHICS PEN command. (It is reset to non-transparent or 
‘opaque’ by a‘, Ø’ parameter). Alter line 7@ to read: 


70 GRAPHICS PEN 1,1 
run 


„апа observe the result. 


As well as drawing lines (and plotting points) it is possible to write normal text 
characters at the position of the graphics cursor. This has the advantage that we can 
position the characters with much greater accuracy (within one pixel rather than 
within 8 pixels) and also that we can draw characters with the added flavour of 
graphics ink modes (see ahead). 


To write characters at the graphics cursor location, simply position the graphics 
cursor at the top left-hand corner of where you want the character to be drawn, then 
issue the command TAG (or TAG #1 etc, for other text streams) followed by normal 
PRINTing commands. The graphics cursor is automatically stepped right by 8 pixels 
after each character is drawn. Add: 


160 MOVE 64,108 
170 TAG 

180 PRINT "SALLY" 
190 TAGOFF 

run 


(Any messages output by BASIC will be sent to the text screen irrespective of the 
state of the TAG/TAGOFF switch, but it is good practice to cancel the TAG 
assignment as soon as the T A Gging is over.) 
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But what are the arrows after the name? Well, these are carriage-return CHR$ ( 13) 

and line-feed C HR $ (10) symbols. The graphics drawing software translates all of 
the first 32 ASCII characters into their printable versions (as if they were each 
preceded by a CHR$ ( 1) 5 when sent to the text screen). The reason for this is that 
most of the first 32 control codes are meaningful only to the text screen. By the same 
token for example, if we overflow to the right of the graphics window, no wrap-around 
is performed. 

The carriage-return and line-feed symbols can be suppressed by the normal 
technique of ending the PRINT statement with a semicolon, i.e: 


180 PRINT "SALLY"; 
run 


Text sent to the graphics screen using TAG is influenced by the same GRAPHICS 
PEN commands as the line drawing. Thus currently, the name is written in 
GRAPHICS PEN 1,andistransparent. The command: 


150 GRAPHICS PEN 1,0 
run 


«+ Will switch back to opaque paper, whilst: 


150 GRAPHICS PEN 0,1 
run 


Will write with ink number Ø, transparently. 


Now delete line 15@ and RUN again. Ink number 1 + transparent mode (previously 
set in line 7 Ø) will be restored to the graphics pen. 


Transparent characters 


It is also possible to write characters to the text screen transparently, by using one of 
the control codes provided. Add: 


200 PRINT #2,CHRS(22);CHRS(1) 
210 LOCATE #2,32,14:PRINT 42,'xxxxxt 
220 LOCATE 42,32,14:PRINT #2," " 
230 PRINT #2,CHR$(22);CHR$(0) 

run 


Line 200 sets stream #2 to transparent mode. Note how the underlining appears to 
'overstrike' the asterisks. This demonstrates that it is possible to build up composite 
characters, even in multiple colours. Line 230 switches off transparent mode, 
setting stream # 2 back to opaque mode. 
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Ink modes 


It is possible to draw using a graphics ink mode which combines the current drawing 
with the ink already on the screen. The final ink for each pixel is calculated by 
forming the logical combination of the old ink for the pixel with the graphics ink (pen 
or paper) being plotted. The logical combinations provided are XOR, AND and OR. 
The ink mode can be set either as the fourth parameter of DRAW/DRAWR, 
PLOT/PLOTR and MOVE/MOVER commands or by PRINTing a CHR$(23); 
CHR$ («mode») control code sequence. In each case a value of 1 sets XOR plotting, 2 
sets AND plotting and 3 sets OR plotting. A value of @ restores the ‘force’ mode, 
where the graphics ink is used ‘as is’. 


The next example demonstrates the use of the XOR combination. XOR is often used 
in so-called Turtle Graphics because it has the property that drawing the same 
pattern twice restores the original image. Thus the square drawing routine is 
executed twice (in lines 110 and 130), and the TAGged printing is also executed 
twice (in lines 170 and 190). The FRAME commands cause enough delay to make 
the effect visible. Note the use, in line 90, of commands without a first parameter. 
This is quite in order in these commands, and simply leave the current settings of the 
first parameter unchanged. 


The third parameter (, 1) of the MOVE command in line 22@ sets the GRAPHICS 
PEN to 1, overriding the ‘3’ set in line 60. The XOR mode is set by the fourth 
parameter of the DRAWR command in line 230. Note once more the missing 
parameter. 


A reminder of the first-point plotting effect can be seen by removing the MASK 
command in line 9@. The corners of the square disappear because they are drawn 
twice (at the end of one line and the start of the next) and are therefore cancelled out 
by the XORing action. 


10 REM XOR ink modes 

20 MODE 1:INK 2,10:INK 3,4 

30 ORIGIN 440,100,440,640,100,300 
40 WINDOW 1,26,1,25 

50 CLG 2:GRAPHICS PAPER 0 

60 DRAW 200,200,3 

70 MOVE 2,0:FILL 3 

80 ORIGIN 440,0,440,640,0,400 
90 GRAPHICS PEN ,1:MASK ,0 
100 FOR у-60 ТО 318 STEP 2 
110 GOSUB 220 

120 FRAME:FRAME 

130 GOSUB 220 
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140 NEXT 

150 TAG 

160 FOR y=60 TO 318 STEP 2 

170 MOVE 96,y:PRINT CHR$(224); 
180 FRAME: FRAME 

190 MOVE 96,y:PRINT CHR$(224); 
200 NEXT 

210 END 

220 MOVE 90,y,1 

230 DRAWR 20,0,,1 

240 DRAWR 0,20 

250 DRAWR -20,0 

260 DRAWR 0,-20 

270 RETURN 

run 


Animation 


Itis possible to produce an animation effect by switching the colours assigned to inks. 
Although the contents of the screen memory are unchanged, there appears to be 
movement. An example of this is included in the ‘Welcome’ program on Side 4 of your 
system discs package (type RUN "disc" to see that demonstration). The simple 
palette switching of that example is not enough, however, if the animated patterns 
are required to overlap. The next example uses ORing of inks to write the numbers 1 
to 4 onto the screen. (The shape is determined by scanning the character printed at 
the bottom left hand corner and reproducing what is found, in big block graphics.) 
The numbers are written in turn using inks 1,2,4 and 8 with the OR mode turned on 
-in this case with a control character sequence, see line 50. 


Lines 160 onwards rotate the palette according to a mathematical formula which 
results in one block graphics number at a time being displayed. The inks are set by 
inspecting each ink in turn and determining if it includes the binary component that. 
we are looking for. For example, the number 3 was drawn in ink 4 and therefore to 
show the number 3 we must allocate a visible colour to all inks whose number 
contains a binary 4. Those inks are: 


4(0100),5(0101),6 (0110), 7 (0111), 12 (1100) , 13 (1101), 14 (1110), 15 (1111) 
In a practical application the inks which require to be changed at each stage in the 


animation would be calculated, and lines 180 to 200 would be replaced by a 
speedier section of program. 
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10 REM Latch animation 

20 ON BREAK GOSUB 220 

30 FOR 1 TO 15:INK i,26:NEXT 

40 m(1)=1:m(2)=2:m(3)=4:m(4)=8 

50 MODE O:PRINT CHR$(23);CHRS$(3); : ТАЄ 

60 FOR P-1 TO 4 

70 GRAPHICS PEN m(p),1 

80 LOCATE #1,1,25:PRINT#1,CHRS(48+p); 

90 FOR x=0 TO 7 

100 FOR y= 0 TO 14 STEP 2 

110 IF TEST(x*4,y)-U THEN 140 

120 MOVE (x+6)*32,Cy+6)*16:PRINT CHR$(143); 
130 MOVE (x*60*32,(y*7)*16:PRINT CHR$(143); 
140 NEXT y,x,p 

150 LOCATE #1,1,25:PRINT#1," "; 

160 FOR p=1 TO 4 

170 FOR i- 1 TO 25:FRAME:NEXT 

180 FOR 1-0 TO 15 

190 IF (i AND m(p))=Ø THEN INK 1,0 ELSE INK i,26 
200 NEXT i,p . 
210 60ТО 160 

220 INK 1,26 

run 


Colour plane sprites 


In the example above we have seen how, having written graphics in inks 1,2, 4 and 8, 

an animation effect can be produced by colour changing. If the same inks are used, 

but the colours set up in a different way then a completely different effect can be 

produced. This effect is known as ‘colour planes’ and is demonstrated in the example 
elow. 


10 REM mountains 

20 DEFINT a-z 

30 INK 0,1:1МК 1,26 

40 INK 2,6:1NK 3,6 

50 FOR TO 7:1NK i,9:NEXT 

60 FOR TO 15:INK i,20:NEXT 

70 MODE Q:DEG:ORIGIN 0,150:CLG:MOVE 0,150 
80 FOR x=16 TO 640 STEP 16 
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90 DRAW x,CO0S(x)*150+RND*100,4 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
run 


NEXT 

MOVE @,O:FILL 4 

cx=175:GOSUB 320 

cx=525:GOSUB 329 

SYMBOL 252,0,0,&C,&1F,&30,&7F ,&FF 

SYMBOL 253,0,6,&E,&F2,2,&F2,RFE 

SYMBOL 254,0,&60,&70,&7F,&7F ,&7F ,&7F 

SYMBOL 255,0,0,0,&FB,&EC,RFE,&FF 
pr$-CHR$(254) *CHR$(255) 

pl$-CHR$(252) *CHR$(253) 

TAG:t!-TIME 

FOR x=-32 TO 640 STEP 4 

x2-((608-x)*2)MOD 640:hL=RND*1B:hr=5O*SIN(x) 
GRAPHICS PEN 8,1:MOVE x,100*hr,,5:PRINT pr$; 
GRAPHICS PEN 2,1:MOVE x2,115*hL,,3:PRINT р15: 
IF (TEST(x2-2,115*hl-12) AND 8)-8 THEN 380 
IF TIME-t!«30 THEN 260 

FRAME:t!-TIME 

GRAPHICS PEN 7,1:MOVE x,188*hr,,2:PRINT pr$; 
GRAPHICS PEN 13,1:MOVE x2,115*hl,,2:PRINT pl$; 
NEXT 

GOTO 210 

MOVE сх,100 

FOR x-Ü TO 360 STEP 10 

DRAW cx+SIN(x)*50+10*RND,100+COS(x)*25+10*RND,1 
NEXT 

DRAW сх,100:МОУЕ cx,90:FILL 1 

RETURN 

ENT -1,1,1,1 

SOUND 1,25,400,15,,1,15 

FOR y=100+hr TO -132 STEP -2 

GRAPHICS PEN 7,1:MOVE x,y,,2:PRINT pr$; 
GRAPHICS PEN 8,1:MOVE x,y-2,,3:PRINT pr$; 
NEXT 

GOTO 76 


To explain how this works we must, once again, visualise the INK number in binary. 
Starting with the highest INK number (15), all the I NKs with the '8' bit present (15 
down to 8) are set to cyan. Then all the I NKs with the ‘4’ bit present (7 down to 4) are 
set to green. I NKs 2 and 3, each with the ‘2’ bit present are set to red, and finally INK 
1 is set to bright white, with INK Ø remaining as blue. 
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On the screen the graphics are ORed into place - see lines 230 and 240. The colour 
seen on the screen in any particular pixel is determined by the most significant bit of 
the resultant at that point. Therefore an image in a ‘more significant’ plane will 
always obscure an image in a ‘less significant’ plane, but the background will be 
preserved and can be seen again if the ‘more-significant’ image is removed. The way 
‘to remove an image is to plot it using the AND ink mode with I NK numbers of 7,11,13 
or 14removing original I NKs of 8,4,2 and 1 respectively - see lines 280 and 290. 


Graphics Using the Extra Memory 


To conclude this chapter, we provide you with a comprehensive ‘Graphics Screen 
Designer’ program that makes use of the extra 64K of RAM in the 6128. 


10 'SCREEN DESIGNER by DAVID RADISIC 
20 ' copyright (c) AMSOFT 1985 
' 


40 'Remember to RUN "ВАМКМАМ" before running program! 
50 ORIG жж III IIH 
60 ' 

70 ON ERROR GOTO 2740 . 
80 DEFINT a-x 

90 MODE 1:ch=127:cmnd=1 


pn(0)=0:pn(1)=26:pn(2)=15:pn(3) 


=6:pn(4)=0: 1222-Н1МЕМ 
100 DIM comm 
110 norx$(B)="Normal":norx$(1)="XOR "inorx$(2)-"Trans 


p":norx$(3)-"XOR p 

120 RESTORE:READ cmnds$(1),cmnds$(2):cmnd$=CHR$(16)+CHR 
$(&7F)+cmnds$(1)+cmnds$(2) 

130 READ cmno:FOR i=1 TO cmno:READ command$(i):NEXT 

140 READ st$:1F st$«»"x**" THEN cmnd$(cmnd)=st$:cmnd=cmn 
d*1:GOTO 140 

150 WINDOW /0,1,50,1,3:PAPER #0,0:PEN 40,1:015 40 

160 WINDOW #1,1,40,4,4:PAPER #1,3:PEN #1,1:CLS #1 

170 ORIGIN 0,0,0,640,0,334 

180 х-320:у-200:МОҮЕ x,y 

190 BORDER pn(4):FOR 1-0 TO 3:INK 1,рп(17:МНЕХТ 

200 MASK 255,0:РАРЕВ @:PEN 1:PAPER #1,3:PEN #1,1:GRAPHI 
CS PEN pn,norx 

210 IF flag<>5 THEN 280 
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220 


230 
240 


250 
260 


270 
280 


290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 


IF рп<2 THEN pnt$=CHR$(240):px=(pn+1)*13 ELSE IF pn 
<4 THEN pnt$-CHRS$(241):px-(pn-1)*13 ELSE pntS-CHR$C 
243») :рх-37 

LOCATE px,2:PRINT pnt$; 

LOCATE 1,1:PRINT USING" PEN 0: ## PEN 1 : ##"; 
pn(0);pn(1); 

LOCATE 29,2:PRINT USING"Border : ##";pn(&) 


LOCATE 1,3:PRINT USING" PEN 2 : ## PEN 3 : ##"; 
pn(2);pn(3); 

LOCATE px,2:PRINT " "; 

LOCATE #1,1,1:PRINT#1,USING"X :HHHH Y :HHHH "T 


ху; PRINT #1,"Plot mode : ";norx$(norx*(undraw*2)) 


£ 2 : 
IF flag=0 THEN 60518 2260 
' 

GOSUB 970 

' 


IF flag>0 THEN 390 

IF i THEN 390 
cmndzINSTR(cmnd$,i$):1F cmnd-Ü THEN 390 
IF cmnd=1 THEN С16:х-320:у-200:60Т0 390 
IF cmnd=2 THEN RUN 70 

ON cmnd-2 GOSUB 1240,1410,1520,1640,1840,1860,1950, 
2020,2090,2120,2170,2200,2660,2660,2660,2660,2390,2 
330,2200 

IF tx-Ü AND ty=0 THEN 200 

IF flag>Ø THEN 440 

GOSUB 630 

GOSUB 680:FRAME:GOSUB 680 

GOTO 200 

MOVE tempx,tempy,pn,1 

ON flag GOSUB 470,490,550,640 

GOTO 200 

PLOT x,y:GOSUB 630:PLOT х,у 

RETURN 

DRAW tempx*x,tempy:DRAM tempx*x,tempy*y 
DRAM tempx,tempy*y:DRAW tempx,tempy 
GOSUB 630 

DRAW tempx+x,tempy:DRAW tempx*x,tempy*y 
DRAW tempx,tempy+y:DRAW tempx,tempy 
RETURN 

MOVE tempx,tempy:DRAWR x,y 

IF triside=0 THEN 580 

DRAW tempxx,tempyy:DRAW tempx,tempy 
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580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 


860 
870 


880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 


60508 630 
MOVE tempx,tempy:DRAW tempx*x,tempy*y 
IF triside-Ü THEN RETURN 
DRAW tempxx,tempyy:DRAW tempx,tempy 
RETURN 
x=x+tx:y=y+ty:RETURN 
MOVE tempx,tempy:DRAW x,y 
GOSUB 630 
MOVE tempx,tempy:DRAW x,y 
RETURN 
' draw and undraw cursor 
IF flag=5 THEN RETURN 
MASK 255,1 
IF flag>1 THEN x 
IF flag=4 THEN x 
IF flag=1 THEN xx=x:y 
IF undraw=1 THEN 820 
GOSUB 790 
MASK 255,0 
IF i$=" " THEN GOSUB 2150:1 
RETURN 
MOVE xx-4,yy,pn,1:DRAW xx*4,yy 
MOVE xx,yy-4:DRAW xx,yyt4 
MOVE xx,yy,,xorn:RETURN 
nx=1:GOSUB 1220 
OSUB 1220 
" THEN nx=norx:GRAPHICS РЕМ pn,1:GOSUB 1229 


ztempx*x:yyztempy*y ELSE хх=х:уу=у 


IF flag<>6 THEN 760 

IF moved-Ü AND j$<>"" AND (j$«CHR$(24U0) OR j$>CHR$( 
247)) THEN ch=ASC(j$):moved=1 

IF moved-Ü THEN RETURN 

LOCATE 5,2 

FOR i-ch-5 TO ch*5 

PEN ABSCi<>ch)+1 

Ch$-CHRSCT)*CHRSCABSCT*256)MOD 256) 


IF.ch-i THEN PRINT" "ch$" "; ELSE PRINT ch$; 
NEXT 

PEN 1:РВІМТ" = "ch" "; 

GOTO 760 


ty-ü:tx-0:GOSUB 680:FRAME:GOSUB 680 
IF INKEY(@)<>-1 OR INKEY(72)<>-1 THEN ty=16 
IF INKEY(2)<>-1 OR INKEY(73)<>-1 THEN t 


1000 IF INKEY(8)<>-1 OR INKEY(74)<>-1 THEN tx--16 
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1010 
1020 


1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 


1140 


1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 


1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 


IF INKEY(1)<>-1 OR INKEY(75)<>-1 THEN tx=16 

IF INKEY(21)<>-1 OR INKEY(76)<>-1 THEN tx=tx/8:ty= 
ty/8 

IF tx=@ AND ty=@ THEN moved=@ ELSE moved=1 
j$-INKEYS:i$-UPPERSCj$) 

IF (i " OR i$-CHRSC13)) AND flag>Ø THEN 1090 

IF fla THEN 1120 

IF flag=6 THEN 1170 

RETURN 

ON flag GOSUB 1240,1410,1640,1860,1950,2020 

i 

RETURN 

IF moved=@ THEN RETURN 

IF tx>2 THEN pn-(pn*1) MOD 5 ELSE IF tx«-2 THEN pn 
=АВ$((рп<1))*5-1+рп 

IF ty>2 THEN pn(pn)=(pn(pn)+1) MOD 27 ELSE IF ty<- 
2 THEN pn(pn)=ABS((pn(pn)<1))*27-1+pn(pn) 

GRAPHICS PEN pn:PEN #1,pn 

tx=0:ty=0:BORDER pn(pn):RETURN 

IF tx<@0 THEN ch=ABS(ch+255) MOD 256 

IF тусд THEN с BS(ch*246) MOD 256 

IF tx>@ THEN c ch+1) MOD 256 

IF ty>@ THEN ch-(ch*10) MOD 256 

tx=O:ty=O:RETURN 

TAG:MOVE xx-8,yy+6,pn,nx:PRINT CHRS(ch);:TAGOFF 
RETURN 

t$ 

IF flag=1 THEN 1290 

ro=1:GOSUB 2240 

tempx=x:tempy=y:flag=1 

RETURN 

IF tempx=x AND tempy=y THEN 1390 

PLOT х,у,,1 
tix=MAX(x,tempx)-MIN(tempx,x):tiy=MAX(y,tempy)-MIN 
(tempy,y) 

ti=SQR((tix12)+(tiy12)) 

ORIGIN tempx,tempy 

PLOT 0,0,pn,0:MOVE 0,-ti 

FOR 2-0 TO PI*2+0.01 STEP PI/(ti/2) 

DRAW SIN(z+PI)*ti,COS(z+PI)*ti,pn,norx 

NEXT z 

ORIGIN 0,0 
x=tempx:y=tempy:tempx= 
RETURN 


:tempy-0:flag-0 
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1⁄410 ' B 

1420 IF flag=2 THEN 1470 

1430 ro=2:GOSUB 2248 

1440 tempx=x:tempy=y:flag=2 

1450 x=0:y=0 

1460 RETURN 

1470 IF norx=1 THEN 1500 

1480 MOVE tempx,tempy:DRAW tempx+x,tempy,,norx 

1490 DRAW tempx*x,tempy*y:DRAW tempx,tempy*y:DRAW tempx 
,tempy 

1500 x=tempx:y=tempy:flag=0 

1510 RETURN 

1520 ' F 

1530 ro=3:GOSUB 2240 

1540 GOSUB 1620:IF i$=" " THEN 1600 

1550 edgecol=VAL(i$) 

1560 ro=4:GOSUB 2240 

1570 60508 1620:ІҒ i$-" " THEN 1600 

1580 filler=VALCi$) 

1590 MOVE x,y,edgecol:FILL filler 

1600 flag-0:iS-"" 

1610 RETURN 

1620 i$=INKEY$:IF (i$«"Q" OR 15»"3") AND i$«»" " THEN 1 
620 

1630 RETURN 

1640 ' T 

1650 IF flag-3 THEN 1700 

1660 flag-3:ro-5:GOSUB 2240 

1670 tempx=x:tempy=y 

1680 x-0:y-0 

1690 RETURN 

1700 IF triside<>@® THEN 1770 

1710 ro=6:GOSUB 2240 

1720 MOVE 0,0,pn,1:GOSUB 590 

1730 tempxx=tempx+x:tempyy=tempyty:x=x/2:y=20 

1740 triside=1 

1750 60508 550:60508 590 

1760 RETURN 

1770 IF погх-1 ТНЕН 1800 

1780 MOVE tempxx,tempyy,,norx:DRAW tempx,tempy 

1790 DRAW tempx+x,tempy+y:DRAW tempxx,tempyy 

1800 

1810 

1820 


Continued on the next page 
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1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 


1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 


2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 


RETURN 
"а 
norx=1:undraw=undraw XOR 1:RETURN 
fob 
IF flag=4 THEN 1910 
ro=7:GOSUB 2240 
tempx=x:tempy=y:flag=4 
RETURN 
IF norx=1 THEN 1930 
MOVE tempx,tempy,,norx:DRAW x,y 
x-tempx:yz-tempy:flag-0 
RETURN 
am 
IF flag=5 THEN flag-Ü:CLS:INK 3,tmpcol:INK pn,col: 
GOTO 1990 
CLS:flag=5:BORDER pn(pn) 
RETURN 
FOR 1-0 TO 3:INK i,pn(i):NEXT:BORDER pn(4) 
IF pn=á THEN pn=1 
CLS:RETURN 
* А 
THEN 2070 
empy=0:CLS 
:flag=6:norx=1:moved=1 


RETURN 

flag=0 

RETURN 

На. 

погх=@ 

RETURN 

"Е 

GRAPHICS РЕМ рп,0:ТАб:МОУЕ xx-8,yy+6,,Ü:PRINT " "; 
:TAGOFF 

RETURN 

!<5РАСЕ> 

PLOT x,y,pn,norx:RETURN 

UP. 

norx=1 

RETURN 

би 

menu=menu MOD 2+1 

GOSUB 2260:RETURN 

i$-UPPERSCINKEYS):IF 1$="" OR INSTR(ser$,i$)=0 THE 
N 2230 ELSE RETURN 


Continuedon the next page 
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2240 


2250 
2260 
2270 
2280 
2290 


2300 
23108 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 


CLS:undraw=Ø:PRINT cmnd$(ro);:LOCATE 1,3:PRINT"<SP 
ACE> ";:IF ro=3 OR ro=4 THEN PRINT"To exit" 

RETURN 

CLS:flag=-1 

FOR i=1 TO LEN(cmnds$(menu)) 
ps=i+ABS(menu=2)*LEN(cmnds$(1)) 

PEN 1:PRINT"<"MIDS$(cmnds$(menu),i,1)">"MID$(comman 
d$(ps),2,4)" 
NEXT 
PRINT"<CLR> <DEL> <SPACE>"; 
RETURN 

.5 

GOSUB 2460:ІҒ filename$= 
GOSUB 2550 

SAVE filename$,b,&C000,&4000 

GOSUB 2260 

RETURN 

“Ж 

GOSUB 2460:IF filename$="" THEN 2440 
GOSUB 2730 

LOAD filename$,&C000 

GOSUB 2570 

GOSUB 2260 

RETURN 

CLS:LOCATE 10,3:PRINT"<RETURN> to Abort! 
LOCATE 1,1:PRINT"Enter Filename Ë 
INPUT "",filename$:IF filename$=""" THEN RETURN 
n=INSTR(filename$,". IF n=@ THEN 2520 

IF n=1 THEN 2460 
filename$-LEFT$(filename$,n-1) 
filename$-LEFT$(filename$,8)*".scn" 

CLS 

RETURN 

FOR 1-0 TO 4:POKE &C000+i,pn(i):NEXT 

RETURN 

FOR i=0 TO &¿:pn(i)=PEEK(&C000+i) MOD 27:NEXT 
cn-0:FOR 1-0 TO 2:1F рп(і) =рп(1+1) THEN cn=cn+1 
NEXT:IF cn-3 THEN 2630 

FOR 1-0 TO 3:INK і,рп(1і):МЕХТ 

BORDER pn(4):pn=1:GRAPHICS PEN pn 

RETURN ‘ 

рп(ӣ) =0:рп(1) =26: рп(2) =15:рп(3) =6:рп(4) =0 

GOTO 2600 

"1, 2, 3, & 4 


ТНЕМ 2370 
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2660 


2670 


2680 
2690 


2700 
2710 
2720 
2730 
2740 


2750 
2760 


2770 


CLS:PRINT"Do you wish to <S>tore":PRINT TAB(16)"<R 
>etrieve":PRINT TAB(13)"or <E>xchange the screen 
>" 


ser$-"SRE"*CHR$(13):GOSUB 2230:IF i$=CHR$(13) THEN 


2260 

bnk2= nd-13):bnk1=1 

IF i$ " THEN CLS:GOSUB 2550:ISCREENCOPY,bnk2,bnk 
1 

IF i$-"R" THEN GOSUB 2730:lSCREENCOPY,bnkl1,bnk2:GO0 


SUB 2570 

IF i$="E" THEN CLS:GOSUB 2730:60508 2550: ISCREENSW 

AP,bnk2,bnk1:GOSUB 2570 

GOSUB 2260:RETURN 

FOR 1-0 TO 3:INK i,U:NEXT:BORDER Q:RETURN 
CLS:GOSUB 2600:RESUME 2260 

DATA "CBFTGLIANEXM" ," 1234RSM" 

DATA 19,Circle,"Box ","Fill ",Triangle,Alternate, 

"Line ","Inks ",ASCII,Normal,Erase,"Xor ","Menu " 
"Ist ","2nd ","3rd ","4th ",Restore,"Save "," 

Menu " 

DATA Circle,Box,Edge colour,Filler colour,Triangle 
1,Triangle 2,Line,** 


The two RSX commands ISCREENCOPY and ISCREENSWAP used in this 
program are provided by the ‘Bank Manager’ utility on Side 1 of your system discs 
package. The commands facilitate the copying and swapping of the various screens 
between the appropriate memory blocks, and between the two 64K banks of memory. 


You must therefore run the ‘Bank Manager’ utility BEFORE running the Screen 
Designer program, and to do this, insert Side 1 of your system discs package, and 


type: 


run 


"bankman" 


You may then run the Screen Designer program. 


What happens next? 


When you have run the Bank Manager utility followed by the Screen Designer 
program, you will see a menu of options displayed, together with a flashing 
graphics-cursor at the centre of the screen. 
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From then on, simply press the appropriate letter (e.g. «С» for Circle) to carry out the 
desired menu option. 


Asa demonstration, type: 

c 
„then press the cursor up key c until the flashing graphics-cursor moves up 
about an inch from the centre of the screen. 


Finally, press the “SPACE, bar to execute the Circle function, and you will then be 
returned to the menu. 


Typing M (for ‘M-enu) will transfer you to an alternative menu from where you may 
«Save and «Restore screens, and manipulate the contents of the 1556, 42514, .3,rd, 
and «4th screens (held in the second 64K bank of memory). 


To use these screen functions, type the ‘memory number’ (1, 2, 3, or 4) and a further 
menu will be displayed. 


From this you can select: 


s toStorethescreen 
R to Retrieve a screen 
E to Exchange screens 


[RETURN] to abort the operation 


If for example, you wish to store the current screen into memory number 2, then type 
2 followed by S. 


When returning to the alternative menu (after a «Restore, ‹Ѕауе, or a screen 
manipulation), typing M again will toggle back to the original menu. 

Screen Designer provides a range of drawing facilities, including boxes, circles, 
triangles, lines, setting/resetting points, filling, and character drawing. 


When a screen has been completed, it may be saved to disc for later viewing/editing 
using the .S;ave option from the alternative menu, and may be loaded back at any 
time using the .R;estore option. 


Well, that concludes this last chapter in the manual. By using, 
analysing, and experimenting with the programs that we have 
provided throughout this guide, you should have acquired a fair 
understanding of AMSTRAD BASIC and of the 6128 itself. 
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Further details.... 


Many AMSOFT and independent publications will furnish you 
with further details of the 6128, together with the BASIC and 
firmware specifications, and information on the CP/M operating 
system and the Dr. LOGO language. 


Finally, we provide a set of 4 appendices which comprise: the 
CP/M End User Licence Agreement, a glossary of terms, some 
games programs’ listings, and а comprehensive index to the 
manual. 


We hope that you have found this manual informative and 
interesting, and thank you for purchasing the CPC6128. 
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Appendix 1 
Digital Research & AMSTRAD 


End User Program 
Licence Agreement 


NOTICE TO USER - PLEASE READ THIS NOTICE CAREFULLY. DO 
NOT OPEN THE DISKETTE PACKAGE UNTIL YOU HAVE READ 
THIS LICENCE AGREEMENT. 


OPENING THE DISKETTE PACKAGE INDICATES YOUR AGREE- 
MENT TO BE BOUND BY THESE TERMS AND CONDITIONS. 


1. Definitions 


-In this Licence Agreement, the terms: 


1. 


DRI means DIGITAL RESEARCH (CALIFORNIA) INC., P.O. Box 579, Pacific 
Grove, California 93950, owner of the copyright in, or authorised licensor of, the 
program. 


Machine means the single microcomputer on which you use the program. 
Multiple CPU systems require additional licences. 


Program means the set of programs, documentation and related materials in 
this package, together with all ancillary updates and enhancements supplied by 
DRI to you regardless of the form in which you may subsequently use it, and 
regardless of any modification which you make to it. 


AMSTRAD means AMSTRAD CONSUMER ELECTRONICS PLC., Brentwood 
House, 169 Kings Road, Brentwood, Essex CM14 4EF. 


You assume responsibility for the selection of the program to achieve your 
intended results, and for the installation, use and results obtained from the 
program. 
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2.Licence 


Youmay: 


1. 
2. 


Use the program on a single machine. 


Copy the program into any machine readable or printed form for backup or 
modificaton purposes in support of your use of the program on a single machine. 
You may make up to 3 (three) copies of the program for such purposes. (Certain 
programs, however, may include mechanisms to limit or inhibit copying. They 
are marked ‘copy protected’). Copying of documentation and other printed 
materials is prohibited. Disassembly of code is prohibited. 


Modify the program and/or merge it into another program for your use on the 
single machine. (Any portion of this program merged into another program will 
continue to be subject to the terms and conditions of this Agreement). 


Transfer the program and licence to another party if you notify DRI ofname and 
address of the other party and the other party agrees to a) accept the terms and 
conditions of this Agreement, b) sign and forward to DRI a copy of the 
registration card and c) pay the then current transfer fee. If you transfer the 
program, you must at the same time either transfer all copies, including the 
original, whether in printed or machine readable form to the same party, or 
destroy any copies not transferred; this includes all modifications and portions 
of the program contained or merged into other programs. 


You must reproduce and include the copyright notice on any copy, modification or 
portion merged into another program. 


EACH DISKETTE IS SERIALISED, AND YOU MAY NOT USE, COPY, 
MODIFY, TRANSFER, OR OTHERWISE MAKE AVAILABLE TO ANY 
THIRD PARTY, THE PROGRAM, OR ANY COPY, MODIFICATION OR 
MERGED PORTION, IN WHOLE OR IN PART, EXCEPT AS 
EXPRESSLY PROVIDED FOR IN THIS LICENCE AGREEMENT. 


IF YOU TRANSFER POSSESSION OF ANY COPY, MODIFICATION 
OR MERGED PORTION OF THE PROGRAM TO ANOTHER PARTY, 
YOUR LICENCE IS AUTOMATICALLY TERMINATED. 
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3. Term 


The licence is effective until terminated. You may terminate it at any other time by 
destroying the program together with all copies, modifications and merged portions 
in any form. it will also terminate upon conditions set forth elsewhere in this 
Agreement or if you fail to comply with any term or condition of this Agreement. You 
agree upon such termination to destroy the program together with all copies. 
modifications and merged portions in any form. 


4. Limited Warranty 


THE PROGRAM IS PROVIDED ‘AS IS’. NEITHER DRI NOR 
AMSTRAD MAKE ANY WARRANTY OF ANY KIND, EITHER 
EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO THE 
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS 
FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE 
QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. 
SHOULD THE PROGRAM PROVE DEFECTIVE, YOU (AND DRIOR | 
AMSTRAD) ASSUME THE ENTIRE COST OF ALL NECESSARY 
SERVICING, REPAIR OR CORRECTION. 


Neither DRI nor AMSTRAD warrant that the functions contained in the program 
will meet your requirements or that the operation of the program will be 
uninterrupted or error free. 


However, AMSTRAD warrants the diskette on which the program is furnished, to be 
free from defects in materials and workmanship under normal use for a period of 
ninety (90) days from the date of delivery to you as evidenced by a copy of your receipt. 


5. Limitations of Remedies 


AMSTRAD’s entire liability and your exclusive remedy shall be the replacement of 
any diskette not meeting this ‘Limited Warranty’ and which is returned to AMSOFT 
with a copy of your receipt. 


IN NO EVENT SHALL DRI OR AMSTRAD BE LIABLE FOR ANY 
DAMAGES, INCLUDING ANY LOST PROFITS, LOST SAVINGS, OR 
OTHER SPECIAL INDIRECT OR CONSEQUENTIAL DAMAGES, 
EVEN IF DRI OR AMSTRAD HAS BEEN ADVISED OF THE 
POSSIBILITY OF SUCH DAMAGES, OR FOR ANY CLAIM BY ANY 
OTHER PARTY. 
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6.Registration Card 


DRI may from time to time update its programs. Updates will be provided to you only 
if a properly signed registration card is on file at DRI’s main office or an authorised 
registration card recipient. DRI is not obligated to make any program updates, or to 
supply any such updates to you. 


7. General 


You may not sublicence, assign or transfer the licence or the program except as 
expressly provided in this Agreement. Any attempt otherwise to sublicence, assign or 
transfer any of the rights, duties, or obligations hereunder is void. 


This Agreement shall be governed by and construed in accordance with the laws of 
England. 


Should you have any questions concerning this Agreement, you may contact DRI by 
writing to Digital Research Inc., P.O. Box 579, Pacific Grove, California 93950. 


THIS AGREEMENT CANNOT AND SHALL NOT BE MODIFIED BY 
PURCHASE ORDERS, ADVERTISING OR OTHER REPRESENTA- 
TIONS BY ANYONE, AND MAY ONLY BE MODIFIED BY A WRITTEN 
AMENDMENT EXECUTED BY YOU AND AN AUTHORISED 
OFFICER OF DRI AND AMSTRAD. 


YOU ACKNOWLEDGE THAT YOU HAVE READ THIS AGREEMENT, 
UNDERSTAND IT AND AGREE TO BE BOUND BY ITS TERMS AND 
CONDITIONS. YOU FURTHER AGREE THAT IT IS THE COMPLETE 
AND EXCLUSIVE STATEMENT OF THE AGREEMENT BETWEEN 
YOU AND DRI AND AMSTRAD WHICH SUPERSEDES ANY PRO- 
POSAL OR PRIOR AGREEMENT, ORAL OR WRITTEN, AND ANY 
COMMUNICATIONS BETWEEN YOU AND DRI OR AMSTRAD 
RELATING TO THE SUBJECT MATTER OF THIS AGREEMENT. 


THIS AGREEMENT DOES NOT AFFECT YOUR STATUTORY 
RIGHTS. 
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Appendix 2 
Glossary of Terms 


Some commonly used terms from the world of computing, 
explained for 6128 users.... 


Accumulator 


A memory location within the microprocessor circuit at the heart of the 
microcomputer that stores data temporarily while it is being processed. Usec 
extensively in machine code programming - BASIC users need never know it 
exists! 


Acoustic coupler 


Also known as an Acoustic Modem. An electronic attachment for a computer that 
connects a telephone handset to the computer and enables the latter tc 
communicate over the normal voice telephone network. In this way, a computer 
can communicate with public information systems such as PRESTEL, and with 
other users of home computers, in order to exchange software, get data and 
information etc. 


Address 


The number in an instruction that identifies the location of a ‘cell’ in a computer's 
memory. By means of its address, a particular memory location can be selected so 
that its contents can be found and 'read', in the case of RAM, both written and 
read. 


Adventure game 


A cult with some, and a bore to others. À text-based computer game in which the 
player is invited to participate in a series of pseudo random events based on 
trying to find a way around a maze or labyrinth. 


Algorithm 
A grandiose name for a complicated formula or sum. A sequence ‘of logical and 
arithmetic steps to perform a defined task in computing. 


Alphanumeric 


The attribute that describes the difference between a letter or number and a 
graphics character. 
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ALU 


Arithmetic Logic Unit. The part of a microprocessor that carries out arithmetic and 
logical operations - not of direct concern except.in machine code programming. 


Ambiguous File Name 


A file name containing one or more wildcard characters. Ambiguous filenames refer 
to more than one specific file name and are used to refer to one or more files at a time. 


AMSDOS 


AMStrad Disc Operating System. The program that allows Locomotive BASIC to 
access disc files. 


AMSOFT 


AMSTRAD’s specialist computer support division, supplying software, peripherals, 
publications, specifically to enhance the 6128 and its many applications. 


A/D 

Analogue 

A state where change between a start and finish point occurs gradually rather than 
instantaneously. Computers are digital devices - most of the natural world is based 


on analogue principles, thus the computer has to perform an analogue to digital (A/D) 
conversion before it can process data from an analogue source. 


Animation 


Cartoons are the best known form of animation - computer animation is based on the 
concept of moving graphics to simulate the idea of ‘live’ movement. 


Applications program 


A program with a specific task rather than a general purpose software 'tool' such as 
an assembler, printer driver etc. 


Arcade Game 


The type of moving action computer video game where for example, spacemen invade 
and are vanquished, or insatiable monsters chase around a maze and gobble up the 
unwary. Figures under the control of the user have to avoid all manner of unpleasant 
‘deaths’. Generally good for the reflexes but of little educational benefit for the 
computer student. 
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Architecture 


The plan relationship of the databus, peripheral and CPU handling aspects of a 
microcomputer. 


Argument 


An independent variable, e.g. in the expression x+y=z, the terms x, y, and z are 
the arguments. 


Array 


A 2 dimensional matrix (grid) in which data is stored by addressing with the 
‘horizontal’ and ‘vertical’ co-ordinates. 


Artificial intelligence AI 


A structure in program techniques that enables the program to learn from its past 
experience. 


ASCII 


American Standard Code for Information Interchange. A commonly used way of 
representing the numbers, letters and other symbols that can be entered from the 
computer’s keyboard or invoked using a variety of other commands. 


Assembler 


The practical method for programming in machine code, where the machine code 
instructions are invoked by mnemonics (letters that suggest the function being 
performed by the corresponding machine code routine). 


Backup 


A duplicate copy of information used as a safeguard in case the original is lost or 
accidentally damaged. Making a backup refers to the process of duplicating a disc 
or disc file. 


Bar code 


A computer readable printed code that can be read by optical techniques such as 
scanning by a low power laser. Look at the bottom of a box of soap powder to see 
anexample. 
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The prime numeric consideration of any mathematician. The basis of any system 
of number representation. The binary system has base 2; the decimal system has 
base 10, and the hexadecimal system has the base 16. 


BASIC 


Beginners’ All-purpose Symbolic Instruction Code. An interpretive programming 
language used in almost all home computers. BASIC was specifically designed to 
be easy to learn and simple to use since it allows for programs to be ‘glued’ 
together and tested at any point in their development; as opposed to compiled 
types where the complete program must be run before any aspect can be properly 
tested. 


Baud 


A bit per second. The unit for measuring the rate at which digital data is 
transmitted in serial communication systems. 


BCD 


Binary Coded Decimal. A coding system for decimal numbers in which each digit 
is represented by a group of four binary digits. 


BDOS 


Basic Disc Operating System. This is the part of the CP/M operating system 
which provides an interface for a user program to use the functions of CP/M. 


Benchmark 


A standard task that can be given to different computers to compare their speed, 
efficiency and accuracy, e.g. calculating the square root of 99.999 squared. 


Binary 


The number system with base 2, in which all numbers are made up from the two 
binary digits 0 and 1. (See part 1 of the chapter entitled ‘At your leisure...) 


Binary number 


A number represented in binary notation. Signified in 6128 programming by the 
prefix &X. e.g. &X0101 = (decimal) 5. 
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BIOS 


Basic Input/Output System. This is the hardware dependent part of CP/M that is 
written specifically for one type of computer. All the input and output to the screen, 
keyboard, disc and so on is performed through the BIOS. 


Bit 
Shortform of BInary digiT. A binary digit is one of the two digits, represented by 0 
and 1, that are used in the binary number system. 


Bit Significant 

Where the information contained in a number is extracted by considering the state of 
each of the eight bits that make up the complete byte. The overall decimal value may 
have по meaning. 


Boolean algebra 


The statement of logical relationships where there can only be two answers: true or 
false. Usually signified as 1 or 0. 


Boot 


The process of loading an operating system into memory. When CP/M is started from 
BASIC a small boot program is loaded automatically from the disc, which then loads 
the rest of the operating system into memory. 


Booting or Bootstrapping 


Programs and operating systems don’t load themselves, they are ‘bootstrapped’ by a 
small routine in ROM (usually), that initiates the loading processes at a specific 
location іп memory. 


Buffer 


An area of memory reserved for temporarily storing, or buffering, information during 
an information transfer. 


Bug 


A problem on a scale ranging from an ‘unexpected feature’ based on some obscure 
aspect of the use of a program (e.g. if you press four keys at once, the screen changes 
colour), to a sequence that completely and irrevokably crashes a computer program 
and wipes the memory clean ofall data. 
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Built-in commands 


Commands that are part of an operating system. They are always quicker than 
transient commandsbecause they are not accessed from disc. 


A group of connections either within the computer, or connecting it to the outside 
world that carries information on the state of the CPU, the RAM and other hard- 
ware features. The 6128 bus is presented on the circuit board connector marked 
EXPANSION, at the rear of the computer. 


Byte 


A group of eight bits, which forms the smallest portion of memory that an 8-bit 
CPU can recall from, or store in memory. 


CAD 


Computer Aided Design. Usually an interaction of computing power and graphics 
to provide an electronic drawing board, although any calculation performed on a 
computer in pursuance of a ‘design’ comes under the heading of CAD. 


CAE 


Computer Aided Education. Further nourishment for the buzzphrases of 
computing. The use of the computer to help with education. CAI (Computer Aided 
Instruction) and CAL (Computer Aided Learning) are two aspects of CAE. 


Cartridge 

A specially packaged memory integrated circuit containing software which can be 
plugged directly into a socket specifically provided for the purpose on the 
computer. Cartridge software loads and runs quickly and easily, but costs 
considerably more than software supplied on disc. 

Cassette 


Apart from the obvious recording tape variety, a generic term that encompasses a 
variety of ‘packages’ - including ROM software etc. 
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CCP 


Console Command Processor. This is a module of CP/M that interprets and 
executes user input from the keyboard. Usually commands are input which the 
CCP loads and executes. 


Character 


Any symbol that can be represented in a computer and displayed by it, including 
letters, numbers and graphics symbols. 


Character set 


All the letters, numbers and symbols available on a computer or printer. The fact 
that a character exists on a computer does not imply it is accessible on any 
printer. 


Character string 


A piece of «variable data comprising a sequence of characters that сап be stored 
ormanipulated asa single unit, e.g. a word or a collection of words. 


Chip 


A misleading but popular reference to any form of monolithic electronic 
integrated circuit. The 'chip' is actually a small slice of specially processed silicon 
material, on which the circuit is fabricated. 


Clock 


The reference timing system in the computer used to synchronise and schedule 
the operations of the computer. A real time clock is one that maintains the hour, 
date etc. 


Code 


Apart from the more literal implications, frequently used by programmers as an 
abbreviation of ‘machine code’. 


Cold start 


The process of booting and initialising an operating system. A cold start of CP/M 
is performed when the | СРМ command is used. 


Command 
Aprogramming instruction. 
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Compiler 


A complex program that converts complete programs written in a high level 
interpretive languages like BASIC into the direct instruction code of the 
microprocessor, thereby enabling operation at much greater speeds. 


Computer generations 


Technological landmarks have delineated several distinct steps in computer 
technology, and the groupings within these various strata are known as the 
‘generations’ of design technologies. 


Computer literacy 


Another grandiose expression meaning understanding computers. 


Console mode 


CP/M direct mode; the A> appears on the screen, and the system awaits input of a 
CP/M or utility command. 


Corruption 


The destruction or alteration of the contents of a disc file or memory, in an 
undesirable and potentially unrecoverable manner. 


CP/M 


Control Program for Microcomputers. A disc based operating system by Digital 
Research that provides a standard systems interface to software written for a 
wide range of microprocessor based computer systems. 


CPU 


Central Processing Unit. The component at the heart of any computer system that 
interprets instructions to the computer and causes them to be obeyed, in a 
microcomputer, the CPU is the microprocessor device itself. 


Cursor 


A movable marker, indicating where the next character is to appear on the 
screen. 
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Cursor control keys 

Keys that move the Cursor around the screen, and are frequently used to control 
the direction of action in arcade games, indicated by arrows printed on the top. 
Daisy-wheel printer 

A printer that can produce high quality or ‘typewriter quality’ documents. Printed 
characters are created by the impact of letters against the ink or film ribbon. 
Database 

Anarray of any type of data in a variety of computer addressable formats. 


Data capture 


The term which describes the collection of data from any outside sources that are 
linked in some way toa central computer. 


Debugging 


The process of fixing the bugs in a program by a combination of 'suck it and see" 
and more scientific methods. 

Decimalnotation 

Also known as the Denary system, for numbers with base 10, using the digits 0 to 
9, representing numbers of units, tens, hundreds, thousands and so on. 

Default 

The value assumed in the absence of any user output. For example, when CP/M is 
started Drive A : is assumed to be the default drive. 

Delimiter 

(SeeSeparator) 


Diagnostic 


A message automatically produced by a computer to indicate and identify an error 
ina program. 
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Digital 


Describes the transition of a changing quantity in terms of discrete steps rather 
than by a continuous process. The opposite of analogue. 


Digitiser 
A means of plotting analogue information into a computer. Commonly referred to 
in conjunction with graphics tablets. 


Directory 


A section of disc containing entries for each file on the disc. A list of the contents 
ofa disc. 


Disc (or disk) 


A flat, thin circular piece of plastic, coated on one or both sides with a magnetic 
oxide surface and used as a medium for storing data. The disk is housed in a 
protective envelope, with access for the reading head provided by a ‘window’. On a 
3” disc the window is covered by a metallic shutter, which automatically slides 
across when the disc is out of the disc drive. 


Disc drive 


The mechanism used to spin and access the data on the surface of the disc. 


Documentation 


The manuals that are supplied with computers or software to explain how they 
are operated. 


DOS 


Disc Operating System. The software that controls all the operations of a disc 
drive. 


Dot matrix 


A rectangular grid of dots on which a character can be displayed by the selection 
of certain dots. 


Double sided 


A disc that can store information on both sides. A double sided disc drive can 
access both sides of a disc without the need to turn the disc over. 
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Download 


The transfer of information from one computer to another - the computer 
receiving the data is generally referred to as the machine downloading. The other 
endofthelink isuploading. 


Dr.LOGO 


Digital Research's version of LOGO, a programming language with a graphics 
turtle. 


Dumb terminal 


A computer terminal that simply acts as a medium for input and output without 
any processing of the information passing through. Note that a mindless terminal 
is one where even the display drive electronics are absent, and that the screen 
display information is fed in as pure video. 


Edit 


To correct or make changes to data, a program or text. 


Editor 


A program that is usually in the ROM of the computer, which enables the editing 
process to be carried out. 


EPROM 


Erasable Programmable Read only Memory. Similar to the PROM, except that 
the data contained in the chip can be erased by ultra-violet light, and new 
program recorded. An EEPROM is similar, except that it may be electronically 
erased. 


Expression 


A simple or complex formula used within a program to perform a calculation on 
data -the expression will usually define the nature of the data it can handle. In 
Dr.Logo an expression consists of a procedure name followed by any necessary 
inputsto the procedure. 


Fifth generation computers 


Mainly large mainframe computers that аге promised to arrive with the ability 
for self-programming using the developments of artificial intelligence. 
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File 


А collection of data, generally stored on cassette or disc. 


Filename 


The name of a file. In Dr.Logo a file name can consist of up to 8 alphabetic or 
numeric characters. In CP/M or AMSDOS, an additional three character file type, 
preceded by a dot . is allowed. 


Firmware 


Software contained іп ROM - a cross between pure software and pure hardware. 


Fixed-point number 


A number represented, manipulated and stored with the decimal point in a fixed 
specified position. 


Floating-point number 


A Real number, manipulated and stored with its decimal point permitted to settle 
in the required position. The method is particularly useful when dealing with 
large numbers. 


Floppy disc 
(See Disc) 


Flowchart 

A diagrammatic representation of the progression of program steps and logical 
processes tracing the sequence of events during program execution. 

Forth 

A high speed programming language, with speed and complexity falling between 
a High-level language and Machine code. Not a beginners’ language. 


Function key 


A key on the keyboard that has been assigned a specific task - which it may 
execute in addition to, or instead ofthe main purpose inscribed upon that key. 
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Gate 


Logical gates permit the passage of data when certain conditions are fulfilled. 
There are many different types of gate (OR, AND, XOR etc). 


Graphics 


The part of the screen display of the computer that is not related to the display of 
‘characters’. Graphics encompasses the drawing and plotting of lines, circles, 
patterns, etc. 


Graphics character 
Ashape or pattern specially designed to be useful in creating images. 


Graphics cursor 


Similar to the text cursor, but addressing the graphics screen. An invisible 
concept on the 6128 - but nevertheless an indispensible facility for locating drawn 
graphics. Not to be confused with graphics characters which are still part of the 
‘character set’, and are printed at the text cursor. 


Graphics mode 


Early microcomputers required to be specifically set to either handle characters or 
graphics. Modern personal computers are capable of mingling text and graphics 
simultaneously. 


Graphics tablet 


A device that plots the co-ordinate points of a given picture or drawing for 
manipulation within the computer. A form of A/D. 


Handshaking 


A sequence of electronic signals which initiates, checks and synchronises the 
exchange of data between a computer and a peripheral, or between two 
computers. 


Hard Copy 


Paper print-out of a program or other text - or of a graphics display. The 
transitory screen equivalent is known as ‘soft copy’. 
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Hardware 


The electronic and mechanical parts of a computer system - anything that isn’t 
software or firmware. 


Hexadecimal (or HEX) 


The number system with base 16. Hexadecimal numbers are signified in 6128 
programming by the prefix & or TE e.g. &FF = (decimal) 255. (See part 1 of the 
chapter entitled ‘At your leisure....’.) 


Hex file 


An ASCII representation of a command or machine code file. 


High-level language 


Languages like BASIC, which are written in ‘near literal’ form, where the actual 
language does most of the work of interpreting. Slower than machine code 
orientated programs, but far simpler to understand. 


IEEE-488 


One of the standard Interfaces for connecting devices to a microcomputer. Similar 
to- but not wholly compatible with - the Centronics parallel interface. 


Information technology 


Anything relating to the use of electronics in the processing of information and 
communications: wordprocessing, data communications, PRESTEL, etc. 


Initialise 


Switch on a system, or declare specific values for variables before beginning to 
execute the body of program - e.g. dimensioning arrays, declaring variables to be 
integers, etc. 


Input 
Anything that enters the computer memory from its keyboard, disc unit, serial 


interface or other input source. 


Instruction 


A request/command to a computer to perform a particular operation. A collection 
or sequence of instructions form a program. 
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Instruction set 


The prime logical and mathematical processes carried out by the microprocessor. 
Every high level instruction (including assembler mnemonics) have to be capable 
of being distilled down to an instruction that is recognised by the computer's 
CPU. A single high level command may invoke a large number of elements from 
the CPU's instruction set. 


Integer 


A whole number with no decimal point. 


Integer number 


A number with no fractional part, i.e. a number with no part to the right of the 
decimal point - as opposed to a real number which is the integer part plus the 
fractional part. 


Integrated circuit 
A collection of electronic circuit components miniaturised and built onto a single 
piece of silicon. (See also Chip) 


Intelligent terminal 


A terminal where as well as handling the requirements of the computer's input 
and output, local processing power is also available when the terminal is ‘off line’. 


Interactive 


Usually a reference to programs where the hardware computer prompts the user 
to provide various types of input - ranging from controlling the spaceship in an 
arcade game, to answering questions in educational programs. The action of the 
user has an effect in ‘real time’ on the behaviour ofthe program. 


Interface 
The way in and out of a computer, both in electrical and human terms. The 6128 


interface is the keyboard (input), and the screen (output) - as well as the facility 
for the connection of user peripherals to the various sockets. 
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Interpreter 


A further extension of the analogy of computer instruction sets and language. The 
element of the system software that interprets the high level language to the 
level that can be understood by the CPU. e.g It converts BASIC code as entered 
via the keyboard into the computer’s own internal language. 


ro 
Input/Output. 


Iteration 


One of the elements of computing. The computer performs all tasks by breaking 
them down into the simple tasks that can be handled by the CPU. To do this, the 
computer must go to and fro' between many simple elements until a given 
condition is fulfilled. 


Joystick 


An input device that generally replaces the function of the cursor keys, and 
makes games playing faster and easier. 


A short form of the metric measure prefix for 1000, ‘kilo’ - which in computing 
has come to be widely used to refer to a 'kilobyte' - which is actually 1024 
(decimal) in view of the binary association of 2 raised to the power of 10. 


Keyboard 


The matrix of alphanumeric key switches, arranged to provide the means of 
typing commands and other information into the computer. 


Keyword 


A word whose use in the computer program or language is reserved for a specific 
function or command. 


Least significant bit 


In a binary number, the Least Significant Bit (LSB) is the bit at the extreme 
right hand end ofthe expression. 
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Light Pen 


Another alternative input method, using a pen or ‘wand’. 


Line number 


BASIC and some other languages use programs that are arranged in line number 
order. 


Lisp 
The acronym formed from LISt Processor language. Another high level computer 
language. 


Logic 
The electronic components that carry out the elementary logical operations and 
functions, from which every operation of a computer is ultimately built up. 


Logical device 


The representation of a device that may be different to its physical form. For 
example the CP/M logical device LST may be assigned to the Centronics port or 
perhaps the VDU. 


LOGO 


The name of a programming language derived from the Greek word logos, which 
means word. Logo is designed to teach the fundamentals of computer 
programming. 


Loop 


A process in a program that is executed repeatedly by the computer until a 
certain condition is satisfied. 


Low-levellanguage 
Such as 'assembly language'. A programming language in which each instruction 


corresponds to the computer's machine code instruction. 


LSI 


Large Scale Integration. The development of integrated circuits, packing more 
functions onto ever smaller pieces of silicon. 
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Machine Code 


The programming language that is directly understood by a microprocessor, since 
allits commands are represented by patterns of binary digits. 


Machine readable 


A medium of data or any other information that can be immediately input to a 
computer without additional work on keyboarding etc. 


Man-machine interface 


A point of interaction between the computer and the operator: keyboard, screen, 
sound etc. 


Matrix 
The arrangement of the dots that form the character cell on the screen, or on the 


print head of a ‘dot matrix’ printer. Also a term used in mathematics and 
computer science to encompass arrays. 


Memory 


The computer's parking lot for information and data, neatly arranged in logical 
rows with each item individually accessible. Either known as RAM (random 
access memory) where information can be both stored and retrieved, or ROM, 
where the information may be read, but not re-written in another form. Discs and 
tape are examples of ‘bulk memory’, although the term has evolved to mean the 
memory that is directly addressed by the CPU. 


Memory map 


The layout of the memory, showing the various addresses, and the allocation of 
the memory to specific functions, such as the screen, the disc operating system 
etc. 


Menu 


A bill of fare of the different options that may be carried out by the program in 
the computer, left to the user to select. 


Microprocessor 


An integrated circuit that sits at the heart of a microcomputer and executes the 
instructions that are presented to it by the BASIC intepreter, in order to control 
the various output devices and options. 
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Modem 


A MOdulator DEModulator that connects the computer’s I/O to a telephone line or 
other serial data transmission medium - including fibre optics. (See also Acoustic 
coupler) 


Monitor 


The screen section of a computer terminal system, and also a term describing a 
machine language program that provides access to the fundamental machine 
operation of the computer. 


Mouse 


An upside-down ‘tracker’ or ‘roller ball’. Pushed around a table top by hand, a 
mouse is generally used to move a cursor around the screen. Originally designed 
to overcome the fear of keyboards and make software appear more ‘user friendly’, 


MSB 


The Most Significant Bit of a binary number, i.e. the bit at the left end of the 
binary expression. 


Network 
When two or more computers are linked together to exchange data and 
information - either by wiring, or via MODEMs. 


Nibble 


Half a byte: a four bit expression. Each of the hexadecimal digits in the 
expression &F6 represents ‘one nibble’. 


Node 


A unit of storage in the LOGO workspace. Typically one node consumes 4 bytes of 
memory space. 


Noise 


The 6128 sound facilities include the ability to inject a variable amount of random 
noise to create effects such as explosions. 
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Numeric keypad 


The area on the keyboard where number keys are grouped to facilitate entry of 
numeric data, and in the case of the 6128, to provide the additional facility of user 
definable function keys. 


OCR 


Optical Character Recognition. A means of reading printed or written characters 
with an optical reader and translating them directly into computer readable data. 


Octal 


A number system to the base of 8, where each digit (0-7) is constructed from three 
Bits. 


Offline 


A computer peripheral - usually a display terminal or a printer - that is not actively 
connected to, or accessible by, the main processing unit. 


Online 
The opposite of Offline. 


Operating system 


The attendant in the ‘parking lot’ referred to under the entry for Memory. Software 
that allocates precedence and timing to the operations of the computer. 


Operator 


Тһе part of an arithmetic expression that causes one number to operate on another, 
eg. + - * / etc. 


Output 


Anything that comes from a computer as the result of some computational function. 


Overwrite 


Erase an area of memory by replacing its contents with new data. 
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Paddle 
Analternative name for ajoystick. Also referred to as a ‘games paddle’. 


Page zero 


This refers to the region of memory in a CP/M environment between &0000 and 
&0100 which is used to hold vital system parameters. 


Paperware 


Another description for the printed ‘hardcopy’ of computing. Occasionally 
computers launched before they have actually finished development are described 
as a ‘paperware exercise’. 


Parallel interface 


The 6128 printer interface supports a parallel printer, which means that each 
data line from the bus is connected to a corresponding input on the printer. Data 
is transferred many times more quickly using a parallel interface than it is 
through a serial interface, since the serial interface must first format each byte, 
and frame it with synchronisation information. 


Pascal 


A high-level structured programming language that must be compiled before it 
will execute - and therefore runs very quickly. Generally the next language that 
the keen BASIC student will pursue. 


PEEK 


The BASIC function that looks directly into the computer’s memory, and reports 
the value at the specified location. 


Peripheral 
Printers, modems, joysticks, cassette units - anything that plugs into the 
computer to expand its capabilities. 


Physical device 


An actual device, consisting of hardware, that exists. Physical devices may be 
represented by logical devices. 
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Pixel 


The smallest accessible area of the screen that can be controlled by the hardware. 


Plotter 


A specific type of printer that draws ‘longhand’ using pens rather than an impact 
print head. Used for technical and graphical drawing output. 


POKE 


The statement in BASIC that is used to place a value in a specified memory 
location. 


Port 
Aspecifically addressable point on the interface for input or output of data. 


Portability 


Other than the literal use, means the ability for software to operate on different 
makes of computer - usually as a result of a compatible operating system, such as 
Digital Research’s CP/M. 


Primitives 


Procedures, operations or commands that make up Dr.Logo; the built-in 
procedures. 


Printer 
Any hardcopy method for printing out text. 


Procedure 


A series of expressions or program statements that dictate how to perform a 
particulartask. 


Program 


A combination of instructions that cause the computer to execute a task. It can be 
anything from a simple machine code 'routine' to a complete applications 
program, such as a wordprocessor. 
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Programminglanguage 

The medium through which the program is written, being comprised of rigid rules 
on the use of words, numbers and the sequence in which they are implemented. 
PROM 


Programmable Read Only Memory. An integrated memory circuit that once 
written with data, cannot be erased. (See also EPROM) 


Prompt 


A short message or character sequence reminding the user that some type of 
input is expected. For example, the CP/M prompt is the > and the Dr.Logo prompt 
is the ? character. 


PSU 


Power Supply Unit. The means of converting the domestic mains electricity 
supply into the necessary voltages to operate the computer (and peripheral 
devices). 


OWERTY keyboard 

The colloquial term to describe a keyboard with the conventional UK or US 
typewriter key layout. 

RAM 

Random Access Memory. Memory that may be both read from, and written to, 


using the internal circuitry of the computer during the normal course of program 
execution. 


Random access 


The ability to read and write information in memory or on a disc in any desired 
order. 


Random number 


A number that is generated by the computer program that is neither repeatable, 
nor predictable. The 6128 is capable of generating a pseudo random number 
sequence. 
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Raster 


A system of ‘writing’ on the screen where the images are built from a number of 
horizontal scan lines. (Raster scan). 


Read only R/O 


An attribute assigned to a disc, a disc file or a disc drive that prevents writing or 
changing of data. 


Read write R/W 


An attribute assigned to a disc, a disc file or a disc drive that allows both reading and 
writing of data. 


Real number 


A number that has both integer and fractional parts. i.e. both sides of the decimal 
point are used. 


Realtime 


Events that occur before your eyes, as opposed to those which only become evident 
after the termination of the process that produced them. 


Record 
A group of bytes in a file. CP/M uses 128 byte records. 


Recursion 


The series of repeated steps (also sometimes imprecisely described as reciprocation) 
within a program or routine in which the result of each repeated cycle of events is 
related to the previous one. 


Refresh 


To update information, either on the screen of a VDU, or in the memory. Need not be a 
destructive process, but merely reinforcing whatever was already present in memory 
oron the screen. 


Register 
A transient memory location within the CPU that is used for temporary storage. 
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Remark 


A non-executing statement in a program that is included to remind the programmer 
what part of the program he is doing, and to date and time stamp that particular 
‘edition’. 


Reserved word 


A word which has particular significance to the computer program, and cannot be 
used other than in its pre-defined context. For example, BASIC will not accept the 
word NEW asa vr riable - it is already ‘reserved’ for another purpose. 


Resolution 


The ability to determine where one element of the display ends, and the next one 
begins. Also loosely applied to the ability of a computer to perform arithmetic 
manipulations on large numbers. 


Reverse Polish notation 


(RPN) A method of describing arithmetic operations favoured by some calculator 
manufacturers, where the operators (+, ~, ж, /) are placed behind the values to which 
they apply. 


RF Modulator 


The means by which the video signals from the computer are encoded and 
‘transmitted’ to the aerial ofa standard TV set. 


ROM 


Read Only Memory. Generally with reference to semiconductor memory systems: 
once written, neither erasable, nor re-writable. 


Routine 


A part of the program that performs a ‘routine’ task. A ‘sub’ program that resides 
either within a main program, or may exist as a separate module for incorporation 
into a variety of applications programs. e.g. A program to derive a 12 hour display 
from the system’s clock may be considered as a routine. 
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RS232C 


A specific standard for serial data communications interfaces. Devices at both ends of 
the data link using an RS232 interface require to be ‘configured’ to the particular 
conditions of the RS232 data standard used. Compare this with the Centronics 
parallel interface where the interconnection is virtually standard everywhere. 


Screen Editor 


A text or program editor where the cursor may be taken to any part of the screen 
display in order to alter the characters appearing there. 


Scrolling 


The term describing the way in which the screen display ‘rolls up’ when the display 
fills up to the bottom, and needs to make space for the next line of entry or output to 
appear. 


Sector 
Ablock of data on a disc. The AMSTRAD disc system uses a sector size of 512 bytes. 


Separator 


A separator performs the same function as a delimiter, i.e. marking the boundary 
between reserved words and other elements of the program or data. 


Serial interface 


Although this term nearly always refers to an RS232 interface, other serial 
standards exist for the sequential transmission of computer data. 


Simulation 


A technique for emulation of real life interactive processes using the computer, such 
as flight simulation, driving simulation etc. 


Single sided 
Refers to a disc which has only one side available for data storage. 


Soft key 
(See UDK - user defined key) 
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Software 
Programs themselves. May be based on disc, cassette, ROM, etc. 


Software engineering 

A grandiose expression meaning computer programming, implying a structured and 
considered approach, as opposed to arbitrary techniques. 

Sound generator 

The part of a computer (it may be either hardware or software) that creates the sound 
and noise. 

Speech recognition 


The conversion of the spoken word into machine readable instructions. 


Speech synthesis 


Generation of simulated speech using a combination of hardware and software. 


Spreadsheet 


A program that allows rows and columns of numbers to be entered and arithmetically 
manipulated. Changing one entry causes all the associated calculations to be re-run, 
and produces an updated result. 


Sprite 

A screen character that moves freely around the display, generated by specific 
hardware or software that allows it to appear and disappear apparently at random. 
Stack 

An area of memory allocated for ‘stacking’ information, but where only the last entry 
onthe stack can be recalled. 

Statement 


An instruction, or sequence of instructions, in a computer program. 


Glossary Appendix 2 Page 27 


Stream 


The route used for the output from the computer. e.g. the screen, the printer, or the 
disc. 


String 

A type of data comprising an assortment of characters that may not be treated as a 
numeric variable. It may be purely numeric, but it is not treated as such unless 
specifically converted to a corresponding numeric variable by the appropriate 
command. 


Structured programming 


A logical and premeditated programming technique that results in programs that 
flow from ‘top to bottom’, with clearly described steps. 


Sub-routine 


(See routine) 


Syntax error 


When the rules of the program are broken by the incorrect use of keywords and 
variables, BASIC will prompt the user with this message. 


System tracks 
Tracks reserved on the disc for the CP/M system. 


Terminal 


A keyboard input device, with either a VDU screen or teletype typewriter output 
system. 


TPA 


Transient Program Area. An area in memory commencing at &0100 where CP/M 
user programs run and store data. 


Track 


Tracks are concentric rings on a disc. Each track holds a fixed number of sectors. The 
tracks and sectors are written to a specific area of a disc during formatting. 
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Transient program 


A CP/M utility program such as PIP, which can be loaded into the TPA and run by 
typing its name at the keyboard. 


Truncated 


A number or string that has been shortened by removal of leading or trailing 
characters. Where intentional, the process may involve rounding the value. Where 
unintentional, the extra characters are simply discarded to enable the number or 
string to fit the available space. 


Truth table 


The results of a logical operation are either ‘true’ or ‘false’. The computer interprets 
these as being either 1 or 0, and the truth table lists the possible results of a logical 
operation(IF A>B THEN C)accordingly. 


Turnkey 


А word used to describe a program which executes automatically when the system is 
booted. 


Turtle 

A graphic symbol, in the shape of an arrow head, that functions as a graphic cursor on 
the Dr.Logo graphic screen. 

Turtle graphics 

The graphics image left on the screen by the movement of a turtle. As the turtle 


moves it leaves a trace of its path on the screen. 


Turtle step 
The smallest distance a turtle can move. Normally one pixel. 


UDK 

User defined keys. The 6128 has up to 32 keys which may be redefined to perform a 
variety of tasks. 

Unsigned number 


Anumber with no prefix to signify whether its value is positive or negative. 
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Utility 


Any complete program used to perform a common operation, such as sorting data or 
copying files. 


Utility program 


A program on disc that enables the user to perform certain operations. (See Transient 
program) 


Variable 


An item included in a computer program that can be identified by name, but whose 
actual value may be made to vary during the execution ofa program. 


Warm start 


This is performed when [CTRL]C is pressed during CP/M. A warm start reinitialises 
the disc sub-system and returns control to CP/M ready for commands to be entered. 


Wildcard character 


Either of the characters * or ?. Dr.Logo only supports the ? character. The * 
wildcard character simply means any number of 28, When referencing files, wildcard 
characters are used to make up an ambiguous file name. Any ?s in the file name refer 
to any alphabetic or numeric character. 


Write protection 


A safeguard used to prevent re-writing of a disc or disc file. A write protected disc or 
file is Read Only. 


XYZY 


A magic word to get out of sticky corners in adventure games. 
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App 


endix 3 


Some Programs For You.... 


Bustout 


So simple yet so addictive! For one player against the computer. Keyboard or 


Joystick. 


"BUSTOUT by ALEXANDER MARTIN 
‘copyright (c) AMSOFT 1984 


MODE 1:BORDER 1:1МК 0,1:1МК 1,26:1МК 2,24:1МК 3,6 
SPEED KEY 15,2 
ENV 1,1,18,0,11,0,10 
ENT 1,10,2,2 
ENV 3,1,0,16,5,-3,2 
ENV 2,5,3,3,1,-21,22,9,-3,2 
ENT -2,10,2,2,5,-7,1,2,11,3,2,-4,8 


' 
. 

MOVE 30,32:DRAWR 0,400,1:MOVE 610,32:DRAWR 0,400,1 
PEN 3:LOCATE 3, RINT STRINGS$(36,143) 


PEN 2:LOCATE 3,2:PRINT STRINGS$(36,143) 

PEN 1:FOR r=5 TO 6:LOCATE 3,r:PRINT STRING$(36,143) 
:МЕХТ r 

bx=9 


lives=5:score=0 

PEN 1:GOSUB 680:CLEAR INPUT 

IF INKEY$<>CHR$(32) AND JOY(Ø)<16 THEN 200 

LOCATE 11,23:PRINT SPACES(C20):LOCATE 1,24:PRINT SPA 
CE$(40); 

GOSUB 690:GOSUB 660:60ТО 280 


' 
LOCATE bx,24:PRINT" ";STRINGS(4,131);"  ":RETURN 
' 

xa=1:ya=1:IF INT(RND*2)=1 THEN xa=-xa 

PEN 1:GOSUB 250 

ORIGIN 0,400 

x=bx+4:y=11:x1=x:y1=y 

' 


x1=x+xa:yl=y+ya 


continued on the next page 
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350 
360 
370 


380 
390 
400 
410 


420 
430 
440 
450 


460 
470 
480 
490 
500 


510 
520 
530 
540 


550 


560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 


670 


680 
690 


IF x1=3 OR x1=38 THEN xa=-xa 

GOSUB 540 

IF у1=24 AND x1>bx+1 AND x1<bx+6 THEN уа=-уа:у1=у1- 
2:SOUND 130,44,8,7,1,1:a=((x>bx+5)OR(x<bx+2)):IF а= 
-1 THEN ха=ха*а:х1=х1+ха:у1=у1+1 

IF y1=25 THEN LOCATE x,y:PRINT" ":GOTO 500 

GOSUB 250 

t=TEST((16*x1)-1,-C(16*y1)-1) 

IF %<>0 THEN ya=-ya:xz=x1:yz=y1:y1=y1+ya:GOSUB 590: 
core+1 OSUB 660 

core*2 OSUB 660 

THEN score=score+5:GOSUB 660 

IF y1=1 THEN ya=1 


LOCATE x,y:PRINT " ":LOCATE x1,y1:PRINT CHR$(233) :x 
=х1:у=у1 
IF y=1 OR x=3 OR x=38 THEN SOUND 129,78,8,7,1,1 


GOTO 340 


' 
' 

Lives=lives-1:SOUND 132,19,46,12,2,2:1F lives=0 THE 
N GOTO 620 

60508 660:GOTO 280 


IF СІМКЕҮ(8)-й OR INKEY(74)=@) AND bx>2 THEN bx=bx- 
2:RETURN 

IF CINKEY(1)-0 OR 1МКЕҮ(75)-0) AND bx«32 THEN bx=bx 
+2:RETURN 

RETURN 


LOCATE xz,yz:PRINT " " 
n 


RETURN 


IF score>=hiscore THEN hiscore=score 
60508 660:score-Q:lives-5:GOTO 130 


SOUND 130,0,20,13,3,0,31:10САТЕ 1,25:PRINT TAB(4)"H 
ISCORE";hiscore; 

LOCATE 18,25:PRINT"SCORE";score:LOCATE 30,25: РКІМТ" 
LIVES";live ETURN 

LOCATE 11,2 RINT"PRESS SPACE TO START":RETURN 
LOCATE 1,25:PRINT 5РАСЕЗ(40) ; : RETURN 
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Bomber 


A variation on a classic theme! For one player against the computer. Keyboard only. 


18 
20 
30 
40 


50 
60 


70 
80 
90 


100 
110 
120 


130 
140 
150 
160 
170 


180 
190 


200 
210 
220 
230 
240 
250 
260 
270 
280 
290 


"BOMBER by DAVE TOWN 
"copyright (c) AMSOFT 1984 
' 


MODE 1:CLS:INK Ø,Ø:BORDER 0:1МК 1,18:INK 2,6:INK 3,4 
:INK 5,15:INK 6,2:INK 7,24:1NK 8,8:1NK 9,26:1МК 10,1 
0:INK 11,20:INK 12,12:1NK 13,16:ІМК 14,14:1NK 15,21 
SYMBOL AFTER 240:SYMBOL 241,840,860,870,87F ,&7F ,&3F, 
87,80:5ҮМВ01 242,&0,&32,&7A,&FE,&FA,&F2,&ED, 80 


scor :hiscorezQ:plane$zCHR$(241) *CHR$(242) : х=2:у=2 
:drop =2:b=2 

GOSUB 480 

015 


PEN 2:LOCATE 1,15:INPUT"Enter skill : Ø (ACE) to 5 € 
NOVICE) : ",skill 
IF skill<@ OR skill>5 GOTO 90 
skill=skill+10 
LOCATE 1,15:PRINT CHR$(18);:LOCATE 1,15:INPUT"Enter 
speed 0 (FAST) to 100 (SLOW) : ",rate 
IF rate>100 OR rate<@ GOTO 120 
' 


"Buildings 
' 


MODE Q:FOR base=5 TO 15:FOR height=21 TO INT(RND(1) 
*8+skill) STEP -1:LOCATE base,height:PEN base-2:PRI 
NT CHR$(143)+CHR$(8)+CHR$(11)+CHR$(244);:NEXT :NEXT 
PLOT 0,20,4:DRAM 640,20,4 

LOCATE 1,25:PEN 2:PRINT"SCORE";score;:LOCATE 13,25: 
PRINT"HI";hiscore; 

' 


'Main Game 
D 


LOCATE x-1,y:PRINT" 0"; 

PEN 1:LOCATE x,y:PRINT plane$;:PEN 2 

IF y=21 AND x-15 THEN GOTO 290:ELSE GOTO 340 
' 


'Landed 
' 


FOR c=0 TO 1000:NEXT 
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400 
410 
420 
430 
440 
450 
460 
470 
480 


score=score+100-(skill*2):skill=skill-1:x=2:y=2:a=2 
:b=2:drop=0 

IF skill<10 THEN skill=10:rate=rate-20 

IF rate<0 THEN rate=0 

GOTO 150 

FOR c=0 TO rate:NEXT 

х=х+1 

IF x=18 THEN LOCATE x-1,y:PRINT CHR$(18);:x=2:y=y+1 
:LOCATE x,y:PEN RINT plane$;:PEN 2 

a$=INKEY$:IF a$= AND drop=0 THEN drop=1:b=y+2:a= 
x + 

IF y=21 THEN drop=0@ 

IF drop=1 THEN LOCATE a,b:PRINT CHR$(252);:LOCATE a 
í,b-1:PRINT" ";:bzb*1:1F b»21 THEN LOCATE a,b:PRINT" 
"P:ILOCATE a,b-1:PRINT" -0:b-0:dropz0:SOUND 3,4 
000,10,12,0,0,10 
ga=(a-0.5)*32:gb=&00-(b*16):bomb=TEST(ga,gb) 

IF bomb>0 THEN GOTO 670 
gx=((x+1.5)*32):gy=&08-(y*16):crash=TEST(gx,gy) 

IF crash>0 GOTO 570 

GOTO 230 


‘Instructions 

LOCATE 1,2:PEN 1:PRINT"You are piloting an aircraft 
over a des-erted city and must clear the buildings 
in order to Land and refuel. Your air- craft move 
s across the screen from left to right.";:PRINT 
PRINT:PRINT"On reaching the right, the aircraft 
returns to the Left A LINE FURTHER DOWN.You have a 
n unlimited supply of bombs and you can.drop them 
on the buildings below by pressing the SPACE BAR. 
:PRINT 

PRINT:PRINT"Each time you land, the height of the 
buildings or the speed of your aircraft increases. 
"PIPRINT:PRINT:PRINT"ONCE YOU HAVE RELEASED A BOMB, 
YOU WILL NOT BE ABLE TO RELEASE ANOTHER UNTIL THE 
FIRST HAS EXPLODED !!!!"; 

PEN 2:LOCATE 1,24:PRINT:PRINT"Press any key to star 
4." 

a$=INKEY$:IF а5- 
RETURN 


' 
"Collision 


GOTO 520 


continued on the next page 
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560 ' 

570 LOCATE x-1,y:PRINT CHR$(32)+CHR$(32)+CHR$(32)+CHR$( 
253) *CHR$ (8) +СНК$ (238) +СНЕ$ (8); 

580 FOR t=1 TO 10:SOUND 7,4000,5,15,0,0,5:РЕМ t:PRINT С 
НЕ$ (2535) + СНЕ (8) + СНЕ (238) + СНЕ$ (8) +СНКФ (32) «СНВ5(8) 
¿:FOR tm-Ü ТО 50: МЕХТ: МЕХТ:РЕМ 2 

590 CLS:LOCATE 1,5:PRINT"You scored";score; 

600 IF score>hiscore THEN hiscore=score:LOCATE 1,8:PRIN 
Т"ТОР SCORE!!"; 

610 score=O:LOCATE 1,12:РКЇМТ" 

620 a$-INKEYS:IF a$="r" OR а$= 
ø 

630 PEN 1:MODE 1:xz2:yz2:a-2:b-2:GO0TO 90 
' 


ss R to restart"; 
" GOTO 630 ELSE GOTO 62 


650 'Bombed building 
' 


670 LOCATE a,b-1:PRINT" "*CHR$(8);:PEN 4:FOR tr=1 TO IN 
TOCRND(1)*3)+1:score=score+5:SOUND 3,4000,10,12,0,0, 
10:10САТЕ а,Ь: РОВ 1-0 TO 4:PRINT CHR$(253)+CHR$(8)+ 
CHR$(C32) *CHR$(B) ; : МЕХТ:Ь=6+1 

680 IF b=24 THEN b-b-1 

690 NEXT 

700 LOCATE 6,25:PRINT score;:drop=O:a=x:b=y:GOTO 230 
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Telly 


tennis 


The one that started it all, but still great fun! For two players, or one player against 
the computer. Keyboard or Joystick(s). 


Appendix 


'TELLY TENNIS by DAVID RADISIC 
'copyright (c) AMSOFT 1985 
' 


DEFINT a-z 

comp=1 

ENV 1,=11,20,=9,5000 
MODE 1:INK 0,10:BORDER 10:ІМК 1,26:INK 2,18:INK 3,0 
60508 710 

60508 150 

60508 330 

60548 420 

LOCATE 13,1:PRINT USING"#### ";scorel; 

LOCATE 35,1:PRINT USING"#### ";score2; 


GOTO 100 
PEN 2 
х(1)=3:у(1)=5 


х(2)-37:у(2)-22 
edge$=CHR$(233):edge2$=STRING$(2,207) 

LOCATE 1,3:PRINT STRING$(39,edge$):PRINT STRING$(39 
,edge$) 

FOR i=1 TO 19 

PRINT edge2$;TAB(38);edge?2$ 

NEXT 

PRINT STRINGS(39,edge$):PRINT STRINGS(39,edge$); 
WINDOW #1,3,37,5,23 

cLs#1 

SYMBOL 240,0,60,126,126,126,126,60,0 

bat$ "ФСНЕ5(8) + СНЕ$С10) +" 1" 
сіг "+CHR$(8)+CHR$(10)+" 
ball HR$(240) 

PEN 3 

LOCATE 2,1:PRINT"Player 1 : Q";:LOCATE 24,1:PRIN 
T"Player 2 : 9"; 

RETURN 

n=INT(RND*2):CLS #1:scored=0 

PEN 3 

FOR i=1 TO 2:LOCATE x(i),yCi):PRINT bat$; :NEXT 

ON n GOTO 390 


continuedon thenext page 
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370 xb=21:dx=1 

380 GOTO 400 

390 xb=19:dx=-1 

400 yb-12:dy-INT(RND*3)-1 

&10 RETURN 

&20 GOSUB 600 

430 oxb=xb:oyb=yb 

440 GOSUB 500 

450 IF note>@ THEN SOUND 129,note,50,15,1 

460 LOCATE oxb,oyb:PRINT" 

470 LOCATE xb,yb:PRINT-ball$ 

480 IF scored-Ü THEN 420 

490 RETURN 

500 LOCATE xb*dx,yb*dy:ch$-COPYCHRS (00) 

510 note- 

520 IF ch 

530 IF ch 
RETURN 

540 IF ch$-LEFT$(edge2$,1) THEN 570 

550 IF ch$=edge$ THEN dy-2-dy-2:note-250 

560 RETURN 

570 IF dx»Ü THEN ѕсоге1=5соге1+1 ELSE score2-score2*1 

580 scored=1:note=2008 

590 RETURN 

600 p(1)=CINKEY (69) >=0) + (ІМКЕҮ (72) >=0) +АВЅ С (ІМКЕҮ(71) >= 
0) +(ІМКЕҮ(73)>=0) )*2 

610 IF comp=1 THEN р(2) =АВЅ(у(2) <уЬ) *2+(у(2) >уЬ) :60Т0 6 
30 

620 p(2)=(INKEY(4)>=0)+(INKEY(48)>=0)+ABS((INKEY(5)>=0) 
*(INKEY(&9)>=0))*2 

630 PEN 3 

640 FOR i=1 TO 2 

650 LOCATE x(i),y(i)+p(i):ch$=COPYCHR$(4#0) 

660 IF ch$=" " THEN LOCATE x(i),yCi):PRINT clr$;:y(i)=y 
Ci)+ROUND(p(i)/2) 

670 LOCATE x(i),yCi):PRINT bat$; 

680 NEXT 

690 PEN 1 

700 RETURN 

710 PEN 2: PRINT: PRINT TAB(15)"Ping-Pong":PRINT TAB(15)" 


' " THEN xb=xb+dx:yb=yb+dy:RETURN 
THEN dxz2-dx-2:dy- INT(RND*3)-1:note-200: 


720 PEN 3:PRINT:PRINT TAB(14)"To move bats : 
730 PRINT:PRINT:PEN 1 
740 PRINT" Player 1 Player 2 Direction":PRI 
NT 
continued on the next page 
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750 
760 
770 
780 
790 
800 
810 
820 
830 


PRINT" A 6 up" 

PRINT" z 3 DOWN":PRINT 
PEN 3:PRINT:PRINT TAB(14)"0r joysticks” 

PRINT: PRINT: PRINT: PRINT 

PEN 2 

PRINT TAB(6)"Select <1> or <2> players" 
i$-INKEYS:IF i$<> AND i$<>"2" THEN 810 

IF i$="1" THEN comp=1 ELSE сопр-й 

MODE 1:RETURN 
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Electric fencing 


Try to ‘foil’ your opponent! For two players only. Keyboard or Joysticks. 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 


"ELECTRIC FENCING by ALEXANDER MARTIN 
"copyright (c) AMSOFT 1985 


DEFINT a-z 
MODE 0 
GOSUB 980 
GOSUB 1370 
60508 270 
60508 1520 
60508 1370 
60508 1270 
' 
' 
REM start 
IF finished THEN GOTO 100 
GOSUB 240 
FRAME:IF pidir THEN 60508 570 ELSE FRAME:FRAME 
FRAME:IF p2dir THEN 60508 620 ELSE FRAME: FRAME 
IF р1ѕа=-1 THEN GOSUB 670 
IF p2sa--1 THEN GOSUB 720 
GOTO 140 
' 
' 
IF j THEN 380 ELSE 480 
' 
' 
CLS:PEN 6 
PRINT:PRINT" CHOOSE CONTROL" 
PRINT:PRINT:PRINT:PRINT"press J/K then ENTER" 
LOCATE 4,1 RINT"JOYSTICK";TAB(5);"OR KEYS" 
LOCATE 12,10:IF j THEN PRINT"*":ELSE PRINT" " 
LOCATE 12,11:1F j THEN ELSE PRINT"x" 
IF NOTCINKEY(45)) THEN 
IF NOTCINKEY(37)) THEN 
IF NOTCINKEY(18)) THEN RETURN ELSE 310 
' 
' 
p1=JOY(0):p2=JOY(1) 
pidir=(p1 AND 1)*-1+(p1 AND 2)*0.5 


continuedon the next page 
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400 
810 


420 


430 
440 
450 
460 
470 
480 
490 
500 


510 


520 
530 
540 
550 
560 
570 


580 
590 
600 
610 
620 


630 
640 
650 
660 
670 


680 
690 
700 
710 
720 


p2dir=(p2 AND 1)*-1+(p2 AND 2)*0.5 

IF P1 AND 16 THEN p1sa=p1sa-1:IF plsa=-1 THEN AFTER 
15 GOSUB 770 

IF P2 AND 16 THEN p2sa=p2sa-1:IF p2sa=-1 THEN AFTER 
15 GOSUB 770 

IF р1ѕа THEN р141 
IF p2sa THEN p2di 
RETURN 


p2dirz(CINKEY C4) 20) *1) €CCINKEY (5) 70) *-1) 
pidir=(CINKEY (69)=0) #1) + CCINKEY C210 =0)*-1) 

IF INKEY(63)=0 THEN p1sa=p1sa-1:IF plsa=-1 THEN AFT 
ER 15 GOSUB 770 

IF ІМКЕҮСТ0) =0 THEN p2sa=p2sa-1:1F p2sa=-1 THEN АРТ 
ER 15 GOSUB 770 

IF pisa THEN pldir=0 

IF p2sa THEN р241г-0 

RETURN 

' 


pt=plwp+pldir:IF pt>25 OR pt<6 THEN RETURN ELSE piw 
p=pt 

р141г-0 

PEN 1:LOCATE 3,p1wp:CLS #3:PRINT CHR$(209);:RETURN 


pt=p2wptp2dir:IF pt>25 OR pt<6 THEN RETURN ELSE p2w 
p=pt 

p2dir=0 

PEN 2:LOCATE 18,p2wp:CLS #5:PRINT CHR$(211);:RETURN 
' 


' 
PAPER #4,4:WINDOW #4,4,17,plwp,plwp:CLS#&:FRAME:FRA 
ME 

PAPER #4,0:CLS#4 

GOTO 570 

' 


PAPER #6,5:WINDOW #6,4,17,p2wp,p2wp:CLS#6:FRAME:FRA 
ME 


730 PAPER #6,0:С15#6 
740 GOTO 620 
750 ' 
continued on the next page 
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760 ' 

770 pwpe=(p1wp=p2wp):IF plsa AND NOT(p2sa) AND pwpe THE 
N р1ѕс=р15с+1:500№0 132,120,10,0,1,0:PRINT#1,a$(pl1s 
c);:IF plsc=9 THEN 860 

780 IF p2sa AND NOT(plsa) AND pwpe THEN p2sc=p2sc+1:S0U 
ND 132,100,10,0,1,0:PRINTH2,a$(p2sc);:1F p2sc=9 THE 
N 860 

790 IF plsa THEN SOUND 132,40,70,0,1,1 

800 IF p2sa THEN SOUND 132,56,70,0,1,1 

810 plsa=0 

820 p2sa=0 

830 RETURN 

840 ' 

850 ' 

860 PEN 6 

870 LOCATE 6,10:PRINT"GAME OVER" 

880 IF plsc=9 THEN INK 1,2,20:INK 2,0 ELSE INK 2,6,17:1 
NK 1,0 

890 SOUND 129,1000,0,12,5:500М0 130,900,0,12,3 

900 WHILE INKEY$<>"":WEND 

910 t!=TIME:WHILE t!+2000>TIME:WEND 

920 WHILE INKEY$ : 

930 CLS 

940 finished=-1 

950 RETURN 


"111101101101111" 

001001001001001" 

111001111100111" 

111001111001111" 

100100101111001" 

111100111001111" 

111100111101111" 

1050 а8(7)-"111001001010010" 

1060 а8(8)-"111101111101111" 

1070 а8(9)-"111101111001001" 

1080 FOR п-й TO 9 

1090 howlong=LEN(a$(n)) 

1100 FOR n2=1 TO howlong 

1110 IF MID$(a$(n),n2,1)z"1"THEN MID$(a$(n),n2,1)=CHR$( 
ТАЗ) ELSE М108Са5(0) ,п2,17-0НВ5(32) 

1120 NEXT n2,n 

1130 ' 


continued on the next page 
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1140 ' 

1150 b ELECTRIC FENCING" 

1160 c$=CHR$(32)+CHR$(164)+" Alexander Martin" 

1170 ENV 1,-9,2000:ENT -1,6,3,1 

1180 ENV 2,127,0,0,127,0,0,127,0,0,127,0,0,127,0,0 

1190 ENV 3,-9,9000 

1200 ' 

1210 ' 

1220 BORDER 0 

1230 INK 0,12:PEN #4,1:PEN #6,2:PEN #1,1:PEN #2,2:PAPER 
#1,3:PAPER #2,3:PEN 40,6 

1240 RETURN 'FROM SETTING UP CONSTANTS 

1250 ' 

1260 ' 

1270 INK 0,12:1NK 1,2:1NK 2,6:1NK 3,13:1НК 4,20:INK 5,1 
7:1NK 6,20 

1280 WINDOW #3,3,3,6,25:WINDOW #5,18,18,6,25 

1290 WINDOW #1,3,5,1,5:WINDOW 42,16,18,1,5:WINDOW 47,1, 
20,1,5:PAPER 47,3 

1300 CLS:CLS#7:PRINT#1,a$(0);:PRINT#2,a$(0);:plsc=0:p2s 
c=O:p1wp=5:p2wp=24:pidir=1:p2dir=1 

1310 GOSUB 570:GOSUB 620 

1320 SOUND 1,1000,0,12,2:SOUND 2,900,0,12,2 

1330 p1sa=O0:p2sa=0:finished=0 

1340 RETURN 'FROM GAME SHEET RESTORE 

1350 ' 

1360 ' 

1370 CLS 

1380 PEN 7 

1390 FOR n-1 TO LEN(b$) 

1400 LOCATE 2*n,10 

1410 FOR n2=LEN(b$) TO n STEP-1 

1420 PRINT MID$(b$,n2,1) 

1430 LOCATE 2+n,10 

1440 SOUND 135,20*n2,5,12,2,1 

1450 NEXT n2,n 

1460 SOUND 135,100,0,15,5,1,20 

1470 PEN 6:PRINT:PRINT:PRINT:PRINT c$ 

1480 FOR n-1 TO 5000:МЕХТ 

1490 RETURN 

1500 ' 

1510 ' 

1520 IF j THEN RETURN 

1530 CLS 


continued on the next page 
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1540 LOCATE 7,5 
1550 РЕТМТ"СОМТКО15" 


1560 PRINT 

1570 PRINT" PLAYER1 PLAYER2" 
1580 PRINT 

1590 PRINT" A up 

1600 PRINT" Z down 

1610 PRINT" X fire 


1620 t!=TIME:WHILE t!+1000>TIME:WEND 


1630 RETURN 
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Amthello 


The thinking person’s game. Try to Surround and capture your opponent’s squares 
without leaving your own squares open to capture! For one player against the 
computer. Keyboard only. 


10 'AMTHELLO by M.J.GRIBBINS 
20 'copyright (c) AMSOFT 1984 


40 BORDER 14 

5@ CLEAR 

60 MODE 1:PEN @:PAPER 1:CLS 

70 INK 0,0:1МК 1,14:INK 2,18:INK 3,26 

80 LOCATE 2,3:PEN 3:PRINT"A":LOCATE 3,4:PRINT" 
4,5:PRINT"T":LOCATE 5,6:PRINT"H" 

90 LOCATE 6,7:PRINT"E":LOCATE 7,8:PRINT"L":LOCATE 8,9:P 
RINT"L":LOCATE 9,10:PRINT"O" 

100 WINDOW #1,2,39,22,25:PAPER #1,1:PEN #1,0:CLS #1 

110 PEN 0 

120 LOCATE #1,8,1:PRINT #1,"BLACK ALWAYS PLAYS FIRST" 

130 LOCATE #1,1,3:PRINT #1,"PRESS B OR W TO CHOOSE BLAC 


LOCATE 


K OR WHITE" 
THEN 140 
" THEN Q NX-0:GOTO 210 
b" THEN QX-0:NX-3:G0TO 210 
170 CLS #1:LOCATE #1,4,3 
180 PRINT #1," BLACK OR WHITE ONLY" 


190 FOR Т=@ TO 1000:МЕХТ T 
200 GOTO 140 

5210 DIM СХ(10,10),РХ(9,9),01Х(8) ,C2X (B) ,CX C9) ,СҮХ(9) 
220 11%=2:J1%=2:12%=7:32%=7 

230 FOR 11-0 TO 9 

240 СХ(1Х,01)-6:03(0,11)-6 

250 СХ(9,1Х)-6:0Х(1Х,9)-6 

260 NEXT IX 

270 FOR I%=1 TO 8 

280 READ C1%(1%) ,C2%C1%) 

290 FOR J%= 1 TO 8 

300 READ PX(IX,JX) 

310 CX(1%,J%)=6 

320 NEXT JX:NEXT IX 

330 CX(4,4)=3:CX(04,5)=0:CX(5,4)=0:CZ(5,5)=3 


continuedon the next page 
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340 
350 
360 
370 
380 
390 
400 
410 
420 


430 
440 
450 


460 
470 
480 


490 


500 
510 


520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 


FOR K%=1 TO 58 

READ AR%,BR%,CR%,DR% 

PLOT AR%,BR%:DRAW СЕХ,ОВХ,й 

NEXT K% 

GOSUB 1460 

IF Q%=3 GOTO 770 

CLS #1:INPUT #1," WHICH LINE DO YOU WANT ";EX 

IF ЕУ «1 OR EX >8 GOTO 400 

LOCATE 41,1,3:1NPUT #1,"WHICH COLUMN DO YOU WANT "; 
D% 

IF 9% <1 OR DX >8 GOTO 420 

IF CX(DX,EX)-6 GOTO 480 

CLS #1:LOCATE #1,5,2:PRINT #1,"THAT SQUARE IS ALREA 
DY OCCUPIED !" 

FOR T=1 TO 1000:NEXT T 

GOTO 400 

PLOT 270*(30*DZ),70* (30*EX) :0КАМ 290+(30%D%) ,89* (30 
*EX),QX 

PLOT 290*(30*D4) ,70* (30*EZ) :DRAW 2704 (30*D2),89«(30 
*EX) ,Q% 

GOTO 540 

FOR МХ- Ø TO 19 STEP 2:PLOT 270+(30*DX),70+MX+(30*E 
Ж) 

DRAW 290+(30*DX),70+MX+(30*EX),6:NEXT MX 

GOTO 400 

VRXX=Ü 

FOR K%=1 TO 8 

ҮВХ-0:03Х-03:04Х-ЕХ 
C3X-C3X4 CAX CD : CAX S CAX C2X CK 

IF C%(C3%,C4%)=N% GOTO 590 ELSE 600 

VRX=VRX+1:GOTO 570 

IF C%(C3%,C4%)=6 GOTO 610 ELSE 620 

NEXT КХ:60ТО 67€ 

IF VR%=@ GOTO 610 ELSE 630 

VRXX-VRXZ*VRX 

С3ї-031-01Х(КХ):04ї-04Х-С2Х(КХ) 

IF C%(C3%,C4%)=6 GOTO 610 ELSE 660 
CZ(C3X,C4X)=QX:GOTO 640 

IF VRX%=@ GOTO 680 ELSE 710 

CLS #1:PRINT #1," THIS IS NOT A POSSIBLE CHOICE" 
FOR T=1 TO 1000:МЕХТ T 

GOTO 510 

EZ=EX:DX=DX:VRXX=VRXX 

CLS #1:PRINT #1,"YOU HAVE PLAYED LINE NUMBER ";E% 


continued on the next page 
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730 
740 


750 
760 
770 


780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 


930 
940 
950 
960 
970 


980 

990 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 


PRINT #1," AND COLUMN NUMBER ";DX 

LOCATE #1,2,4:PRINT #1,"THAT GIVES YOU ";VRXX;" SQU 
ARES(S)" 

CX(DZ,EX)-QX:GOSUB 1710 

GOSUB 1460 

CLS H1:LOCATE 41,10,2:PRINT #1,"NOW IT'S MY TURN .. 
ЯС » 

РХ-0:4В8ХХ-0 4 ВҮХ-0 

IF 11%*J1%=1 AND I2%*J2%=64 GOTO 860 

FOR КХ-2 TO 7 

ЇЕ CX(2,KX) <> 6 THEN 11%=1 

IF CX(7,KX) <> 6 THEN I2X-8 

IF CX(KX,2) <> 6 THEN J1%=1 

IF СХ(КУ,7) <> 6 THEN J2%=8 

NEXT K% 

FOR I%=11% TO 12% 

FOR JX-J1X TO J2% 

IF C%C(1%,J%)=6 GOTO 1030 

NEXT JX:NEXT IX 

IF PX > 0 GOTO 1000 

IF PASX-1 GOTO 920 ELSE 940 

CLS #1:PRINT #1," DEADLOCK ! I MUST PASS ALSO.GAME 
OVER" 
FOR T=1 TO 1000:NEXT T:GOTO 1550 

CLS #1:LOCATE #1,18,2:PRINT 81,"1 MUST PASS" 
GOSUB 2720 

IF PAS%=1 GOTO 970 ELSE 990 

CLS #1:PRINT #1,"DEADLOCK! YOU MUST PASS ALSO.GAME 
OVER" 

FOR T-1 TO 1000:МЕХТ T:GOTO 1550 

GOTO 400 


IF LCX=Ø THEN LC%=1:RANDOMIZE LCX:RLX=RND(LCX) 
CX1X-2CXXCRLZ) : CX2X- CYX CRLZ) 

GOTO 1220 

VRXX-0 


FOR КХ-1 TO 8 

VRX-0:C3X-2IX:C4X-JX 

C3X2C3X*CT1XC(KX)* CAXZ2 CAX *C2XCKX) 

IF C%(C3%,C4%)=Q% GOTO 1080 ELSE 1090 
VRX-VRXZ*1:GOTO 1060 

IF C%(C3%,C4%)=6 GOTO 1100 ELSE 1110 
NEXT K%:GOTO 1130 

IF VR%=0% GOTO 1100 ELSE 1120 
VRXXZ-VRXX*VRX:GOTO 1100 
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1130 
1140 
1150 
1160 


1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 


1260 
1270 


1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 


1450 
1460 
1470 
1480 
1490 
1500 
1510 


IF ҮЕХХ-0 GOTO 890 
IF РУ(1Х,1%) < PX GOTO 890 

IF P%C1%,J%) > PX GOTO 1160 ELSE 1170 
РХ-РХ(1Х,4Х):48ҮХ-ҮВХХ:1СХ-0:0ХХ(0)-1Х:0Ү3(0)-31:6 
ото 890 

IF VRY% > VRX% GOTO 890 

IF VRY% < VRX% GOTO 1190 ELSE 1200 
LCX=0:VRYX=VRXX:CXZ(0)=IX:CYX(0)=JXZ:GOTO 890 
LCX=LCX+1:CXZ(LCX)=IX:CYZ(LCX)=JX 

GOTO 890 

CX2%=CX2%:CX1%=CX1%:VRYX=VRYX 

CLS #1:PRINT #1," I CHOOSE LINE NUMBER ";CX2% 
PRINT #1," AND COLUMN NUMBER ";CX1% 

LOCATE #1,1,4:PRINT #1,"THAT GIVES ME ";VRY%;" SQU 
ARE(S)" 

PLOT 270+(30%*CX1%) ,70+(30*CX2%) :DRAW 290+ (30*CX1%) 
789+ (30%*CX2%) „МХ 

PLOT 290+(30%*CX1%) ,70+(30*CX2%) :DRAW 270+(30*CX1X) 
789+ (3B*CX2%) „МХ 

FOR T=1 TO 1000:NEXT Т. 

FOR КХ-1 TO 8 

VRX=Ø:C3%=CX1%:C4%=CX2% 
C3%=C3%+C1%(K%):C4%=C4%+C2%(K%) 

IF C%(C3%,C4%)=Q% GOTO 1330 ELSE 1340 
VRX=VRX+1:GOTO 1310 

IF C%(C3%,C4%)=6 GOTO 1350 ELSE 1360 

NEXT КХ:60ТО 1400 

IF VRX=0 GOTO 1350 
С3ї-03Х-С1Х(КХ):04Х-04Х-С23(КХ) 

IF C%(C3%,C4%)=6 GOTO 1350 

С%(С3%,С4%)-М%:60Т0 1370 

CX(CX1%,CX2%) =N% 

GOSUB 2720 

GOSUB 1460 

IF PAS%=1 GOTO 1440 ELSE 1450 

CLS #1:PRINT #1," YOU MUST PASS":FOR T=1 TO 10 
00:МЕХТ T:GOTO 770 

GOTO 400 

FOR I%=1 TO 8 

FOR J%=1 TO 8 

FOR МХ-й TO 19 STEP 2 
ZZ=270+(30*I2X):HX=70+(30*JX):WXZ=HXZ+MX 

PLOT ZX,WX:DRAW ZX+20,WX,CX(IX,J2) 

NEXT МХ:МЕХТ JX:NEXT IX 
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1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 


1660 
1670 
1680 


1690 


1700 
1710 


1720 
1730 


1740 
1750 


1760 
1770 


1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 


XZ=XX+1 
IF X%=61 GOTO 1550 


FOR I TO 8 

FOR JX=1 TO 8 

IF CX(IX,JX)=QX THEN CQX=CQX+1 

IF CXCIX,JX)-NX THEN CNX=CNX+1 

NEXT JX:NEXT IX 

IF Сах > СМХ GOTO 1680 

IF CQX-CNX GOTO 1630 ELSE 1650 

CLS #1:LOCATE #1,25,2:PRINT #1,"DEADLOCK"” 

END 

CLS #1:LOCATE #1,5,1:PRINT #1,"YOU HAVE ";CQ%;" SQ 
UARES;I HAVE "; СМХ 

LOCATE #1,11,3:PRINT #1,"I HAVE WON....!!!!" 

END 

CLS H1:LOCATE #1,5,1:PRINT #1,"YOU HAVE ";CQX;" SQ 
UARES;I HAVE ";CNX 

LOCATE #1,5,3:PRINT #1,"WELL DONE. YOU HAVE WON !! 
END 

IF C%(2,2)=Q% AND (СХ(3,1)-МХ OR C%(1,3)=N%) GOTO 
1720 ELSE 1730 

PX(3,1)=1:PX(1,3)=1 

IF CX(7,7)=QX AND (CX(8,6)=NX OR CX(6,8)=NX) GOTO 
1740 ELSE 1750 

РХ(8,6)-1:РХ(6,8)-1 

IF CX(2,7)=QX AND (CX(1,6)=NX OR CX(3,8)-NX) GOTO 
1760 ELSE 1770 

PX(1,6)=1:PX(3,8)=1 

IF CX(7,2)=QX AND (CX(6,1)=NX OR CX(8,3)=NX) GOTO 
1780 ELSE 1790 

PX(6,1)=1:PX(8,3)=1 

IF D%=1 OR DX-8 OR EX=1 OR EX=8 GOTO 1820 

IF CX1%=1 OR СХ1Х-8 OR CX2%=1 OR CX2%=8 GOTO 1820 
RETURN 

FOR J%=1 TO 8 STEP 7 

FOR IX-2 TO 7 

IF CXCIX,JX)-NX GOTO 1850 ELSE 1860 
PX(IX+1,JXZ)=21:PX(IX-1,JX)=21 

IF СХСЈХ,ІХ)=МХ GOTO 1870 ELSE 1880 
PX(JX,12+1)=21:PX(JX,1Z-1)=21 

NEXT IX 
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1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 


1990 
2000 
2010 


2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 


FOR IX-2 TO 7 

IF CZCIZ,JX)-QX GOTO 1910 ELSE 1920 

РХ(1Х41,43) РХ(1Х-1,43)-2 

IF C%(J%,IX% % GOTO 1930 ELSE 1940 

PX(JZ,1Z+1)=2:PX(JZ,1Z-1)=2 

NEXT 1%:МЕХТ J% 

PX(1,2)=1:PX(1,7)=1:PX(2,1)= 

PX(2,8)=1:PX(7,8)=1:PX(8,2)= 
FOR IX-2 TO 7 

IF C%(1,1%-1)=Q% AND С%(1,15%1)-0% THEN P%(1,1%)=2 

5 

IF C%(8,1%-1)=Q% AND CX(8,IX*1)-QX THEN P%(8,1%)=2 

5 

IF С%(1%-1,1)<8% AND CXCIX*1,1)7QX THEN PX(1X,1)=2 


:PX(7,1)=1 
РХ(8,7)51 


5 

IF СХ(1Х-1,8)-4Х AND СХ(1Х41,8)-43 THEN P%(1%,8)=2 
5 

NEXT 1% 

FOR J%=1 TO 8 STEP 7 

FOR 1%-4 TO 8 ` 

IF C%CJ%,1%) <> NX GOTO 2140 

ICX=IX-1:IF CX(JX,ICX)-6 GOTO 2140 

IF C%CJ%,1C%)=Q% GOTO 2080 ELSE 2090 
ICX-ICX-1:GOTO 2070 

IF CX(JX,ICX)-76 GOTO 2110 

GOTO 2140 

IF ICX-0 GOTO 2140 

IF CX(JZ,12+1)=QX AND CX(JX,ICZ-1)=6 GOTO 2140 
PZX(JX,ICX)=26 

IF CXC(OIX,JX) <> NX GOTO 2230 

1CX=IX-1:IF CXCICX,JX)-6 GOTO 2230 

IF CX(IC%,J%)=Q% GOTO 2170 ELSE 2180 
ICZ=ICX-1:GOTO 2160 

IF CX(ICX,JZ)=6 GOTO 2200 

GOTO 2230 

IF ICX-0 GOTO 2230 

IF CXCIX*1,J2)-2QX AND СХ(16Х-1,43)-6 GOTO 2230 
РХСІСХ, ЈА) =26 

NEXT 17 

FOR IX-1 TO 5 

IF CX(JX,IX) <> NX GOTO 2340 

ICZ2IX*1:1F С%(/%,1С%)-6 GOTO 2340 

IF CX(JX,ICX)-QX GOTO 2280 ELSE 2290 
ICX-ICZ*1:GOTO 2270 


continued on the next page 


Some Programs for you... Appendix 3 Page 19 


IF CX(JX,ICX)-6 GOTO 2310 

GOTO 2340 

IF ICX=9 GOTO 2340 

IF СХ(3Х,11-1)-8Х AND CX(JX,ICX+1)=6 GOTO 2340 
PX(JX,ICX)-26 

IF CX(12,J2) <> NX GOTO 2430 

ICX-1X*1:1F СХ(16Х,41)-6 GOTO 2430 

IF CZ(1CZ,J4)-QX GOTO 2370 ELSE 2380 
ICX-ICX*1:GOTO 2360 

IF СХ(16Х,41)-6 GOTO 2400 

GOTO 2430 

IF IC%=9 GOTO 2430 

IF -СХ(1Х-1,45)-0Х AND CX(ICX+1,JX)=6 GOTO 2430 
PXCICL,J4)726 

NEXT IX:NEXT JX 

IF CX(1,1)=NX GOTO 2450 ELSE 2460 

FOR IX=2 TO 6:PX(1,12)-20:PXCIX,1)-20:NEXT IX 

IF C%(1,8)=N% GOTO 2470 ELSE 2480 

FOR 1152 TO 6:РХ(1Х,8)-20:РХ(1,9-11)-20:МЕХТ IX 
IF C%(B,1)=N% GOTO 2490 ELSE 2500 

FOR I%=2 TO 6:PX(9-IX,1)-20:PX(B,IX)-20:NEXT IX 
IF C%(8,8)=N% GOTO 2510 ELSE 2520 

FOR I%=3 TO 7:РХ(1Х,8)-20:РХ(8,11)-20:МЕХТ IX 

IF CX(1,1) <> 6 THEN PX(2,2)=5 

IF CX(1,8) <> 6 THEN PX(2,7)=5 

IF CX(8,1) <> 6 THEN PX(7,2)=5 

IF С%(8,8) <> 6 THEN РХ(7,7)55 
PX(1,1)=30:PX(1,8)=30:PX(8,1)=30:PX(8,8)=30 

FOR IX-3 TO 6 

IF CX(1,12)=NX THEN P%(2,1%)=4 

IF CX(B,IX THEN РХС7,1Х)-4 

IF CX(IX,1 THEN P%(1%,2)=4 

IF СХ(1Х,8)-НХ THEN РХ(1Х,7)-4 

NEXT 1% 

IF CX(7,1)-QX AND C%(4,1)=N% AND СХ(6,1)-6 AND CXC 
5,1)=6 THEN P%(6,1)=26 

IF CX(1,7)-QX AND CX%(1,4)=N% AND СХ(1,6)-6 AND СХС 
1,5)=6 THEN P%(1,6)=26 

IF CX(2,1)-QX AND C%(5,1)=N% AND C%(3,1)=6 AND CX( 
4,1)=6 THEN P%(3,1)=26 

IF CX(1,2)-QX AND C%(1,5)=N% AND CX(1,3)-6 AND СХС 
1,4)=6 THEN P%(1,3)=26 

IF С%(8,2)-0Х AND CX(8,5)-NX AND CX(8,3)-6 AND СХС 
8,4)=6 THEN PX(8,3)-26 
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2680 
2690 
2700 


2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 


2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 


IF CX(2,8)-QX AND C%(5,8)=N% AND C%(3,8)=6 AND СХС 
4,8)=6 THEN P%(3,8)=26 

IF CX(8,7)=QX AND CX(8,4)=NX AND CX(8,5)-6 AND CX( 
8,6)-6 THEN P%(8,6)=26 

IF C%(7,8)=Q% AND C%(4,8)=N% AND C%(5,8)=6 AND СХС 
6,8)=6 THEN PX(6,8)-26 

RETURN 

PAS%=0 

FOR I2-1 TO 8 

FOR JX-1 TO 8 

IF CX%C1%,J%)=Q% GOTO 2780 

NEXT JX:NEXT IX 

PASZ-1:RETURN 

FOR K%=1 TO 8 

VRX-0:C3X-IX:CAX-JX 
С3Х-03Х9С1Х(КХ):04Х-0439С2Х(КХ) 

IF C3% < 1 OR C3% > 8 GOTO 2820 ELSE 2830 

NEXT K%:GOTO 2760 

IF C4% < 1 OR C4% > 8 GOTO 2820 ELSE 2840 

IF CX(C3Z,C4X)-NX GOTO 2850 ELSE 2860 
VRZ-VRX*1:G0TO 2800 

IF CX(C3X,C4X)-QX GOTO 2820 ELSE 2870 

IF VR% > 0 THEN RETURN 

GOTO 2820 


DATA 1,0,30,1,20,10,10,20,1,30,1,1,1,1,3 

DATA 3,3,3,1,1,0,1,20,3,5,5,5,5,3,20,-1,1,10,3,5 
DATA 0,0,5,3,10,-1,0,10,3,5,0,0,5,3,10,-1 

DATA -1,20,3,5,5,5,5,3,20,0,-1,1,1,3,3,3,3,1,1,1,- 


1,30,1,20,10,10,20,1,30 

DATA 263,100,263,120,270,130,255,130,255,130,255,1 
40,255,140,270,140 

DATA 270,140,270,150,270,150,255,150,255,160,270,1 
60,270,160,270,180 

DATA 270,180,255,180,270,170,255,170,270,190,270,2 
10,270,200,255,200 

DATA 255,200,255,210,255,220,270,220,270,220,270,2 
30,270,230,255,230 

DATA 255,230,255,240,255,240,270,240,255,250,270,2 
50,270,250,270,260 

DATA 270,260,255,260,255,250,255,270,270,280,270,3 
00,270,300,255,300 

DATA 255,310,255,330,255,330,270,330,270,330,270,3 
10,270,310,255,310 

DATA 255,320,270,320 
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3010 DATA 310,355,310,375,350,355,335,355,335,355,335,3 
65,335,365,350,365 

3020 DATA 350,365,350,375,350,375,335,375,365,355,380,3 
55,380,355,380,375 

3030 DATA 380,375,365,375,380,365,365,365,410,355,410,3 
75,410,365,395,365 

3040 DATA 395,365,395,375,425,355,440,355,440,355,448,3 
65,440,365,425,365 

3050 РАТА 425,365,425,375,425,375,440,375,455,375,455,3 
55,455,355,470,355 

3060 DATA 470,355,470,365,470,365,455,365,485,375,500,3 
75,500,375,500,355 

3070 DATA 515,375,515,355,515,355,530,355,530,355,530,3 
75,530,375,515,375 

3080 DATA 515,365,530,365 
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Raffles 


Break into His Lordship’s house and steal the booty. Lots of obstacles to trip you up, 
lights to switch on, and you must beware of the dog! For one player against the com- 
puter. Keyboard or Joystick. 


10 
20 
30 
40 
50 


60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 


"RAFFLES by DAVID RADISIC 
‘copyright (с) AMSOFT 1985 
' 


MODE 0:1МК @,@:BORDER Q:INK 1,26:1МК 2,15:INK 3,25 
INK 4,14:1NK 5,24,12:1NK 6,0:INK 7,0:INK 8,0:PAPER # 
1,7 
delay-200 

DIM objx(5,20) ,0bjy (5,20) ,gemx (5,20) ,gemy(5,20) 
GOSUB 380 
GOSUB 720 

раизе-200:6050в 340 

IF gems=@ THEN GOSUB 970 

PEN 4 

FOR 1=10 TO 12 

LOCATE 15,i:PRINT"SWAG"; 

NEXT 

PAPER @:CLS#2:PAPER 8 

GOSUB 1170 

GOSUB 1230 

GOSUB 1370 

60508 1510 

IF гп-й THEN 60508 1900 

IF dead=@ THEN 160 

рашве-100:60508 340 

PAPER Q:CLS:PEN 1 

LOCATE 4,3:PRINT"Do you want"; 

LOCATE 4,5:PRINT"Another game"; 

PEN 5:LOCATE 9,7:PRINT"Y/N"; 
i$-UPPERSCINKEYS):IF 15«»"Ү" AND i$<>"N" THEN 280 
IF i$="N" THEN MODE 2:PEN 1:STOP 

RUN 

IF dog=1 THEN RETURN 

dog=1:dogx=minx(rm) :dogy=miny(rm) 

RETURN 

FOR (оор-1 TO pause 

FRAME 

NEXT 

RETURN 
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380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 


580 


590 
600 
610 
620 


630 
640 
650 
660 
670 
680 


690 
700 
710 
720 
730 
740 
750 
760 
770 


rm=1:xp=6:yp=4&:man$=CHR$(224):dog=Ü:stolen=0 
SYMBOL 240,8,8,8,8,8,8,8,8 
SYMBOL 241,0,0,0,0,255,0,0,0 
SYMBOL 242,0,0,0,0,15,8,8,8 
SYMBOL 243,0,0,0,0,248,8,8,8 
SYMBOL 244,8,8,8,8,248,0,0,0 
SYMBOL 245,8,8,8,8,15,0,0,0 
SYMBOL 246,8,12,13,14,12,12,8,8 
SYMBOL 247,8,12,12,14,13,12,8,8 
,8,8 


SYMBOL 248,8,24,88,56,24,24 
SYMBOL 249,8,24,24,56,88,24,8,8 

SYMBOL 250,0,0,255,129,129,129,255,0 

SYMBOL 251,28,20,20,20,20,20,20,28 

SYMBOL 252,0,0,255,255,255,255,255,0 

SYMBOL 253,28,28,28,28,28,28,28,28 

SYMBOL 255,195,165,60,126,90,60,36,24 

ENT 1,12,-4,1 

ENT -2,-1000,60,-3000,40 

ENV 1,10,1,5,2,-4,1,2,-1,20 
windu$(1)-STRINGS(2,250) :windw$(2)=CHRS(251)+CHRS(8 
)+CHR$(10)+CHR$(251)+CHR$(8)+CHR$(10)+CHR$(251) 
door$(1)=STRING$(2,252):door$(2)=CHR$(253)+CHR$(8)+ 
CHR$(10)+CHR$(253)+CHR$(8)+CHR$(10)+CHR$(253) 
switch$(1,0)=CHR$(246):switch$(1,1)=CHR$(247) 
switch$(2,0)=CHR$(248):switch$(2,1)=CHR$(249) 
gem$=CHR$(144):obj$=CHR$(233):dog$=CHR$(255) 
hit$=CHR$(246)+CHR$(248)+CHR$(247)+CHR$(249)+CHR$(2 
52)+CHR$(253)+CHR$(250)+CHR$(251)+gem$+obj$+dog$ 
RESTORE 3010 8 
FOR i=1 TO 5 

READ minx(i),miny (i) ,maxxCi),maxy (i) 

READ dir(i,1),dir(i,2),dir(i,3),dir(i,4) 

NEXT 

WINDOW /1,minx(rm)-1,maxx(Crm) *1,miny(rm)-1,maxy(rm) 
*1 

WINDOW 42,1,14,1,25 

CLS #1:PAPER #0,8 

RETURN 

ORIGIN 50,50 

INK 6,24,12 

RESTORE 3060 

GOSUB 1280 

LOCATE 3,20 

PEN 5:PRINT">"; 
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780 
790 
800 
810 
820 
830 
840 


850 
860 
870 


880 
890 


900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 


1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 


PEN 1:PRINT"Escape Routes"; 

PEN 5:PRINT"<";:PEN 1 

LOCATE 10,2: РВІМТ"1М"; 

раиѕе=300:6050В 340 

CLS:LOCATE 1,3:INK 6,0 

PEN 1:PRINT man$;" You The Thief":PRINT 

PEN 2:PRINT LEFT$(door$(1),1);LEFT$(door$(2),1);" D 

oors":PRINT 

PEN 3:PRINT switch$(1,0);switch$(2,0);" LightSwitch 
corr)" 

PEN 3:PRINT switch$(1,1);switch$(2,1);" LightSwitch 
COND": PRINT 

PEN 4:PRINT LEFTS(windw$(1),1);LEFTS(windw$(2),1);" 
Mindows":PRINT 

PEN 5:PRINT gem$;" Precious Gems":PRINT 

PAPER 1:PEN Q:PRINT obj$;" Obstructions ":PEN 1:PA 

PER Q:PRINT 

PEN 1:PRINT dog$;" · Тһе Dog" 

PEN 5:PRINT:PRINT:PRINT 

PRINT" Use Joystick":PRINT" Or Cursor keys" 

dummy=REMAIN(1) 

AFTER delay*4,1 GOSUB 340 


RETURN 

' 

"бепегаїе Gems/obstacles 
' 

FOR room=1 TO 5 


gemrzINT(RND*8)*2:0bjr-INT(RND*10)45 
minxzminx(room) :miny=miny (room) :maxx-maxx(room) :ma 
xy=maxy (room) 

FOR i=1 TO gemr 

=INTCRND* (пахх-тіпх+1) ) +тіпх 
y=INTCRND*(maxy-miny+1))+miny 
gemx(room,i)=x:gemy(room,i)=y 
gems=gems+1 

NEXT 1 

FOR i=1 TO objr 

X=INTCRND* (maxx-minx+1))+minx 
y=INTCRND*(maxy-miny+1))+miny 
objx(room,i)=x:objy(room,i)=y 

NEXT i 

gems (room)=gemr:obj (room)=objr 

NEXT room 

015 
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1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 


1250 
1260 
1270 


1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 


RETURN 

ON rm GOTO 1180,1190,1200,1210,1220 

RESTORE 2670:RETURN 

RESTORE 2740:RETURN 

RESTORE 2810:RETURN 

RESTORE 2880:RETURN 

RESTORE 2960:RETURN 

PAPER Ü:READ rm$:PAPER 8 

WINDOW #1,minx(rm)-1,maxx(rm)+#1,miny(rm)-1,maxy (rm 
)+1:CLS #1 

PEN 1:LOCATE 1,1:PRINT SPACES(19); 

LOCATE 1,1:PRINT "Room :";rm$; 

IF Lights(rm) THEN INK 7,10:INK 8,10 ELSE INK 7,0: 


INK 8,0 

READ a$:IF a$-"END" THEN RETURN 

IF a$ THEN 2180 

IF a$ THEN 2260 

IF a$ THEN GRAPHICS PEN 1:60Т0 2340 
IF a$ THEN 2420 


IF a$ THEN GRAPHICS PEN 6:GOTO 2340 
PRINT"***ERROR **x"; 
STOP 


‘Display gems/objects 


PEN 6 

FOR i=1 TO obj(rm) 

LOCATE objx(rm,i),objy(rm,i) 

PRINT obj$; 

NEXT 

PEN 5 

FOR i=1 TO gems(rm) 

LOCATE gemx(rm,i),gemy(rm,i) 

PRINT gem$; 

NEXT 

PEN 1:LOCATE xp,yp:PRINT man$; 
RETURN 

xf=0:yf=0:PEN 1 

IF INKEY(@)<>-1 OR INKEY(72)«»-1 THEN 
IF ІМКЕҮ(2) <>-1 OR INKEY(73)<>-1 THEN 
IF ІМКЕҮ(8)<>-1 OR INKEY(74)<>-1 THEN 
IF INKEY(1)<>-1 OR INKEY(75)<>-1 THEN 
IF xf-Ü AND yf-Ü THEN 1630 

LOCATE xp*xf,yp*yf:ht$-COPYCHRSCAU) 
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1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 


1680 
1690 
1700 
1710 
1720 
1730 


1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 


1940 
1950 
1960 
1970 


IF ASC(ht$)>239 AND ASC(ht$)«246 THEN 1510 
IF ht$«»" " THEN 1660 
LOCATE xp,yp:PRINT " "; 
PAPER 0:10САТЕ 15,5:PRINT" 
xp7xp*xf:ypzyp*yf 

LOCATE xp,yp:PRINT man$; 
IF dog>@ THEN dog=dog MOD 2+1:IF dog=2 THEN 2550 
GOTO 1510 

hit=INSTRChit$,ht$) :char=ASC(MID$(hit$,hit,1)) 

ON hit GOTO 1690,1690,1690,1690,1750,1750,1850,190 
0,1970,2090,2650 

GOTO 1600 

IF hit>2 AND hit<5 THEN сһаг=сһаг-1 

IF hit<3 THEN char=char+1 

PEN 3:LOCATE xp*xf,yp*yf:PRINT CHRS(char); 
lights(rm)=lights(rm) XOR 1 

IF lights(rm) THEN INK 7,10:INK 8,10 ELSE INK 7,0: 
INK 8,0 

GOTO 1510 

IF xf<>@ AND yf<>@ THEN 1630 

IF xf<@ THEN dir=4 ELSE IF xf>@ THEN dir=3 

IF yf<@ THEN dir=1 ELSE IF yf>@ THEN dir=2 

IF dir(rm,dir)--1 THEN 1630 ELSE rm=dir(rm,dir) 

IF dog>Ø THEN GOSUB 310 

IF dir=1 THEN ryp=maxy (rm) 

IF dir=2 THEN ypzminy(rm) 

IF dir=3 THEN inx(rm):yp=13 

IF dir=4 THEN xp=maxx(rm):yp=13 

RETURN 

IF xp>5 AND xp<8 THEN 1880 

IF хр<6 THEN dir=4 ELSE dir=3 

GOTO 1780 

IF yp>13 THEN dir=2 ELSE dir=1 

GOTO 1780 

PAPER 0:015:РЕМ 1 

LOCATE 3,3:PRINT"You have escaped"; 

LOCATE 9,5:PRINT'with"; 

IF gems-stolen THEN LOCATE 8,7:PRINT"ALL"; ELSE LO 
CATE 9,7 

PRINT USING " ##";stolen; 
PEN 5:LOCATE 9,9: РВІМТ"бетѕ" 
dead=1:RETURN 

LOCATE xp,yp:PRINT" ";:xp=xp+xf:yp=yptyf 


PAPER 8 
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1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 


2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 


IF i>gems(rm) THEN 1510 

IF gemx(rm,i)<>xp OR gemy(rm,i)<>yp THEN 1990 
IF i=gems(rm) THEN 2050 
gemx(rm,i)=gemx(rm,gems(rm)) 
gemy(rm,i)=gemy(rm,gems(rm)) 
gems(rm)=gems(rm)-1:stolen=stolen+1 

MOVE 400,150+(stolen*2),1,1:DRAW 520,150+(stolen*2 
22171 

SOUND 129,248,10,12,0,1 

GOTO 1980 

noise-INT(RND*15) 

SOUND 1,3000,10,noise,0,0,10 

PAPER Ü:LOCATE 15,5:PRINT"Crash ";:PAPER 8 

IF поізе<10 OR 4е(ау-50 THEN 1630 
delay=delay-50 

dummy=REMAIN(1) 

AFTER delay*4,1 GOSUB 310 

GOTO 1630 

' 


‘Draw doors 

' 

READ no,dr$ 

IF dr$="V" THEN dr=2 ELSE dr=1 
PEN 2 

pic$=door$(dr):GOSUB 2500 
GOTO 1280 

'Draw windows 

' 


READ no,wiS 


IF wi$z"V" THEN wi=2 ELSE мі=1 
PEN 4 

pic$=windw$(wi):GOSUB 2500 
GOTO 1280 

' Draw Lines 

' 

READ x1,y1,x2,y2 


MOVE x1,y1,,0 

DRAW x1,y2,,0:DRAW x2,y2,,0 
DRAW x2,y1,,0:DRAW x1,y1,,0 
GOTO 1280 
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2410 ' 

2420 'Draw switches 

2430 ' 

2440 READ no,swS 

2450 IF swS="L" THEN sw=1 ELSE sw=2 

2460 PEN 3 

2470 pic$=switch$(sw,8):GOSUB 2500 

2480 GOTO 1280 

2490 ' 

2500 'Print char 

2538-* 

2520 READ x,y:LOCATE x,y:PRINT pic$; 

2530 no-no-1:1F no>@ THEN 2520 

2540 RETURN 

2550 PEN 1:LOCATE dogx,dogy:PRINT" "; 

2560 man$-CHR$(225) 

2570 IF (dogx=xp AND dogy=yp) OR (dogx-xp*xf AND dogy=y 
p*yf) THEN 2650 

2580 IF dogx«xp THEN dogx-dogx*1 

2590 IF dogx»xp THEN dogx-dogx-1 

2600 IF dogy<yp THEN dogy=dogy+1 

2610 IF dogy>yp THEN dogy-dogy-1 

2620 LOCATE dogx,dogy:PRINT dog$; 

2630 SOUND 1,0,RND*40,10,1,2,31 

2640 GOTO 1510 

2650 PRINT"SNAP"; 

2660 dead=1:RETURN 

2670 DATA Hallway 

2680 DATA L,64,308,226,4 


2690 DATA D,2,H,6,3,6,22 
2700 DATA ,2,V,4,12,9,11 
2710 DATA 5,1,1,4,11 

2720 DATA S,1,R,9,14 

2730 DATA END 

27&0 DATA Lounge 

2750 DATA L,2,308,258,4 
2760 DATA D,1,V,10,12 
2770 DATA W,1,H,6,3 

2780 DATA W,1,V,2, 

2790 DATA S,2,R,10,11,10,15 
2800 DATA END 

2810 DATA Dining room 
2820 DATA L,2,308,258,4 
2830 DATA W,1,V,19,12 
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2840 DATA W,1,H,6,3 

2850 DATA D,1,V,2,1 

2860 DATA S,2,L,2,11,2,15 
2870 DATA END 

2880 DATA Kitchen 

2890 DATA L,2,276,384,4 

2900 DATA D,2,H,6,5,6,22 
2910 DATA W,1,H,10,22 

2920 DATA W,1,V,14,13 

2930 DATA D,1,V,2,13 

2940 DATA S,1,L,2,16 

2950 DATA END 

2960 DATA Pantry 

2970 DATA L,2,276,256,4 

2980 DATA D,1,V,10,12 

2990 DATA S,1,R,10,11 

3000 DATA END 

3010 DATA 5,4,8,21,0,4,3,2 
3020 DATA 3,4,9,21,-1,-1,1,-1 
3030 DATA 3,4,9,21,-1,-1,-1,1 
3040 DATA 3,6,13,21,1,0,-1,5 
3050 DATA 5,6,9,21,-1,-1,4,-1 
3060 DATA 1,64,308,480,100 


3070 DATA F,250,98,294,102 
3080 DATA F,250,306,294,310 
3090 DATA F,390,94,430,106 
3100 DATA F,390,302,430,314 
3110 DATA F,474,240,488,270 
3120 DATA Ғ,474,124,488,154 
3130 DATA F,58,240,72,270 
3140 DATA 1,226,308,322,180 
3150 DATA 1,160,180,480,100 
3160 DATA L,64,180,160,100 
3170 DATA END 


If you've enjoyed these games, you may like to join the 
AMSTRAD COMPUTER USERS' CLUB. As well as 
many other benefits and privileges, you get a free 
monthly magazine which includes program listings for 
games and ‘utilities’, special features, free competitions, 
anduptothe minute information -from the source! 
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Appendix 4 
Index 


(Note that all references given in this index correspond to chapter 
and page number, e.g. 1.44 refers to Chapter 1 page 44.) 


A 


1A 
ABS 

Aerial socket (TV) . 
AFTER ..... 


1.44 1.75 


a 


© ©л Ən to 21 00 (D Qn к Ол 00 00:00 00:00 00 03 00 E © © Оо to 00 


AMSDOS 


Animation 
«АРУ ... 
АКСТАМ . 
Arithmetic operations .. 
Arithmetic operations (LOGO) 
Arrays 
ASC 
ASCII . 
ASCII ch. 
ASCII files ... 
ASCII (LOGO) 


ASM ... 
ASSIGN.SYS 
ATN 


Ф 
D NON ААА 


io 00 05 Sisto io — bo — ia on hi ha co to to bo H So 


AUTO . 
AUX 


1В ... 
Backup discs : 
IBANKFIND . 1.87 8.6 
BANK MANAGER 
ЇВАМКОРЕХ ... 


1.44 1.75 5.8 


. 1.86 84 


Index Appendix 4 Page 1 


IBANKREAD 

IBANKWRITE 
BASIC ..... 
BASIC files 


Binary files 
Binary numbers 


Bit . 

вк. 6.26 
BL 6.8 
во 5.83 


BORDER .... 
BREAK 


BRIGHTNESS control 14 
BUTTONP . 6.35 


BYE .. 6.7 6.38 


Byte 

с 
CALL 
CAPS LOCK key 
Cassette operation 
CAT .. 1.43 3.7 
CAT (cassette 4.11 
CATCH 6.40 
CHAIN 3.7 
CHAIN (cassette) . 4.12 
CHAIN MERGE .. 3.8 


CHAIN MERGE (cassette) 
CHANGEF 
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CLOSEIN 
CLOSEIN (cassette) 
CLOSEOUT ...... 
CLOSEOUT (cassette) . 


5.28 


Configuring programs/packages р 4.6 4.7 
Connectinga mainsplug .... Ll 
Connecting up the computer 12 


Connecting peripherals 
CONT .... 
.CONTENTS 
CONTRAST 
Control characters 
Control codes . 

Copy cursor editing 
COPYCHR$ 
Copying discs . 
Copying files 


519 7.1 73 749 


1.45 1.77 5.11 5.13 


5.13 5.14 5.35 
6.20 
1.35 
,12 7.3 
.. 6.20 
115 6.6 


Cursor keys .... 
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DATA .... 
Data only format 
DATE ..... 


Date/timestamping 
DC sockets 
DDT 


3.16 7.30 7.31 
. 5.27 
. 3.17 


Disc drive (additional) 
DISC DRIVE 2 socket 
IDISCIN . 
DISCKIT2 
DISCKIT3 
Disc organisa’ 


RAAF ABP AMAA N LO олса O Lo H со бо о о D ~I С > GAT nouo 
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Dotted lines 
DRAW 


тоосоо 


DRIVERS.GSX 
Dr.LOGO 
DUMP .... 
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5.31 

6.16 

6.16 

6.2С 

3.20 

Editing 1.27 

Baiting LOO) 6.19 

е 9.30 

1.14 

ELSE .. 3.20 

EMPTYP 6.9 

.EMT 6.43 

END 3.21 

END(LOGO) 18 

«Емі, 6.43 
ENT . 
ENT (Li А 
ENTER key ] 

EN 9.38 


ENV (LOGO) 6.37 
Envelope planner 7.37 
EOF .... 7.29 
EOF (CP/M) š 
ER 


ERROR (LOGO) 

Error messages 7.27 
Error messages (AMSDOS) 7.32 
Error numbers .. 7.27 


ESC key 


EVERY 9.29 
.EXAMINE 6.42 
EXP .. 3.27 
Expansion characters 7.22 
EXPANSION socket 7.40 
Exponentiation .... 1.37 
External commands Š 
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Floppy discs ..... 


Flush sound channels ` 8.73 9.38 


Format (print) 
Format (disc) 


7138 140 1.79 


Graphics 
GRAPHICSPAPER .. 
GRAPHICS PEN 
GPROP 
GSX ... 


147 155 


Hardware . 
Headphones 
HELP 
HEX$ 
Hexadecimal numbers . 
HIMEM .... 
Hold sound channels . 
HOME 
HT. 
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TEM format 


Ink modes 
INP ... 
INPUT 


. 3.34 
125 2.2 3.35 7.28 


INPUT (cassette) 4.14 
Inserting discs 1.11 
INSTR 3.36 
INT .. 3.36 
INT(LOGO) 6.13 
Interrupts . 7.7 9.29 
UO .. 7.88 7.47 
ITEM ^. 640 
JOY 

Joystick commands (LOGO) . 

Joysticks ... 

JOYSTICK socket 

KEY ... . 9.37 7.22 
KEY DEF 3.38 7.22 7.43 
Keyboard 1.15 5.25 7.21 7.22 7.23 7.43 
KEYP 6.36 
KEYS. 5.25 
KEYS.DRL 5.25 
KEYS.WP 5.25 
Keywords .1.22 3.1 7.32 
LABEL .. 6.39 
LANGUAGE . 43 5.24 7.53 
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LEN 


LET 

LINEINPUT .. 

LINE INPUT (cassette) 4.14 
LIST ...... 1.23 1.54 3.40 
LIST(LOGO) . 6.10 
LISTP 6.10 


LOAD (CP/M) 
LOAD (LOGO) 


Loading software 1.20 
Loading the Welcome program 1.21 
LOADPIC 6.34 


. 8.4 3.48 3.54 3.91 


Machinecode .... 
Mains plug connections 


3.44 7.27 
1.84 7.46 8.1 8.2 9.56 


Memory (machine) 
2.5 3.51 


Menu . 
MERGE 
MERGE ( 
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. 1.47 3.46 7.3 
.13 1.5 1.48 168 

. 1.2 
1.2 1.3 7.39 


Modulator/power supply (MP2) 
Monitor ............. 
MONITOR socket 
MOVCPM 
MOVE . 
MOVER 
Musical notes . 
Music planner 


1.30 1.61 3.48 7.27 7.30 
6.6 


NOT ........ 
NOT (LOGO) 6.16 
NOTRACE . 6.41 
NOWATCH 2 
МОМВЕКР 

о 
ONBREAKCONT .. 
ON BREAK GOSUB 
ON BREAK STOP 
ON ERROR GOTO 
ON GOSUB 
ON GOTO 
ON indicator 
ONSQGOSUB . 
ОР yee 2 6.39 
OPENIN . 2.10 3.53 7.29 7.30 
OPENIN (cassette) .- 4.14 
OPENOUT ..... . 2.9 3.53 7.30 
OPENOUT (cassette) . 4.15 
Operators . 1.33 9.18 
OR . 9.54 9.19 
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OR(LOGO) 


Print formatting 
PRINTSPC 
PRINTTAB 
PRINTUSING 
PRINTER socket 
Printers 

‚РЕМ. 


Appendix 4 Page 10 


3.56 
149 3.56 7.4 


.. 5.28 


PROFILE 4.3 5.18 
Protected files 1.45 3.71 
PU 6.27 


6.28 


3.52 3.77 7.7 9.44 
. 6.13 


Queue (sound) 
QUOTIENT ... 


Random access 
RANDOMIZE 


Readerrors (cassette) . 
Read/Only files . 5.12 5.30 5.34 
RECYCLE . 6.7 


Rendezvous sound channels 
RENUM 
REPEAT . 


RERANDOM . 

Resetting the computer 1.20 1.21 
RESTORE 3.67 9.33 
RESUME 3.67 7.29 
RESUME NEXT 3.68 
RETURN ....... 1.31 3.68 7.27 
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RETURN key 
RIGHT$ 
RL .. 


RQ. 
ROINTIME.DEM program 
ROUND .. 

ROUND (LOGO) 
RS232 


RUN (LOGO) 
Running the Welcome program 


SAVE 
SAVE (cassette) 
SAVE (LOGO) 
Saving to casse! 
Saving variables 
SAVEPIC ... 
Screen Designer program . 
Screen dump ..... 
ISCREENCOPY . 
ISCREENSWAP 


1.43 1.45 3.71 


SET24X80 
SETBG ... 
SETCURSOR 
SETD ... 


SETSCRUNCH 
SETSIO .. 
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SETSPLIT 
Settingup 


SHIFT keys 
SHOW (CP/M) . 
SHOW (LOGO) 
SHUFFLE ... 

Sideways ROMS . 


Sound commands (LOGO) 
Sound envelope planner 
SPACE$ 
SPC 

Speakers (externa. 
Speech synthesiser 
SPEEDINK . 
SPEEDKEY 


Sprites 9.54 
SQ 9.45 
SQR 3.77 
Square 3.77 
ss 6.25 
ST 6.29 
STAT 5.34 
STEP 3.78 


Stereo . 
STEREO socket 
STOP ..... 
STOP (LOGO) 
Storage space ( 
ST! 


STRING$ 
String variables 
SUBMIT 
SWAP. 
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Switchingon 


SYMBOL ... 7.5 9.21 

SYMBOL AFT 3.81 7.46 

Syntax error 119 727 

SYSGEN . 1. 5.33 

System format 1.42 5.33 7.44 
T 

TAB 


TAG 
TAG! 


TAN . 3.83 
ITAPE .. 5.10 
I TAPE.IN $ 

ITAPE.OUT 1.76 5.11 
TAPE socket 1.7 7.39 


Terminal emulator 


Tone envelope 
TOPLEVEL 6.43 
TOWARDS . 


TV receiver . 
TYP uo 
TYPE (CPM) . 
TYPE (LOGO) 
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UC .... 
Unnamedfile . 


User defined characters 
User defined keys 
USING 


3.87 9.23 


VAL 
Variables 
Variables (saving) 
VDU emulator 
Vendor format 
Verifying discs 
Vertical hold contro 
Vibrato ........... 
VOLUME control . 
Volume envelope 
VPOS 


. 8.87 
1.25 7.32 9.15 
2.9 3.90 5.6 
- 4.5 7.48 
1.41 5.33 7.44 
1.81 
. 14 
9.42 
9 1.68 
1.70 3.23 9.38 

. 8.87 


WAIT 
WAIT (LOGO) 
Wake-up messagi 
WATCH ......... 


WEND .. 


Wild cards 
WINDOW 
WINDOW ( 
Window planners 
WINDOW SWAP ~ 9.90 9.27 
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WRITE . 2.9 3.90 9.23 
WRITE (cassette) .. 4.15 
Write protection 1.12 1.80 


3.91 9.20 


» 8.92 9.22 
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